From f01e5ef6e26833286356d7311eed3209d6f71828 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 5 Jul 1999 01:20:58 +0000
Subject: compatibility tweak for Class::Struct

p4raw-id: //depot/perl@3579
---
 lib/Class/Struct.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/Class')

diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm
index d8327bc7ab..3e08e801d0 100644
--- 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;
-- 
cgit v1.2.1