compatibility tweak for Class::Struct

p4raw-id: //depot/perl@3579

diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm
index d8327bc..3e08e80 100644 (file)
--- a/lib/Class/Struct.pm
+++ b/lib/Class/Struct.pm
@@ -101,6 +101,7 @@ sub struct {
 
     $out = "{\n  package $class;\n  use Carp;\n  sub new {\n";
     $out .= "    my (\$class, \%init) = \@_;\n";
+    $out .= "    \$class = __PACKAGE__ unless \@_;\n";
 
     my $cnt = 0;
     my $idx = 0;