git://git.jankratochvil.net
/
MyWeb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
&new: Permit 'My::Hash' itself instanation if no other class is specified.
[MyWeb.git]
/
Hash.pm
diff --git
a/Hash.pm
b/Hash.pm
index
b47bed9
..
614c5d7
100644
(file)
--- a/
Hash.pm
+++ b/
Hash.pm
@@
-38,7
+38,7
@@
sub new($$;@)
{
my($class,$parent,@classes)=@_;
{
my($class,$parent,@classes)=@_;
- @classes=[$class,@classes] if $class ne __PACKAGE__;
+ @classes=[$class,@classes] if $class ne __PACKAGE__
|| !@classes
;
for my $item (reverse @classes) {
my $pkg=(!ref($item) ? $item : $item->[0]);
my @args=@{$item}[1..$#$item] if ref $item;
for my $item (reverse @classes) {
my $pkg=(!ref($item) ? $item : $item->[0]);
my @args=@{$item}[1..$#$item] if ref $item;