From: short <>
Date: Fri, 23 Sep 2005 03:30:35 +0000 (+0000)
Subject: &new: Permit 'My::Hash' itself instanation if no other class is specified.
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=7072798887564c7e94795b7e5ccd786ff2739e35;hp=45fc404678bcdc1586d8df9415558929a34459c2

&new: Permit 'My::Hash' itself instanation if no other class is specified.
---

diff --git a/Hash.pm b/Hash.pm
index b47bed9..614c5d7 100644
--- 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;