git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
45fc404
)
&new: Permit 'My::Hash' itself instanation if no other class is specified.
author
short
<>
Fri, 23 Sep 2005 03:30:35 +0000
(
03:30
+0000)
committer
short
<>
Fri, 23 Sep 2005 03:30:35 +0000
(
03:30
+0000)
Hash.pm
patch
|
blob
|
history
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)=@_;
- @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;