&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)=@_;
 
-       @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;