From: Tom Hughes <tom@compton.nu>
Date: Thu, 30 Jul 1998 09:47:31 +0000 (+0100)
Subject: Class::Struct has an incomplete tied array package
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f740b75152b519ddef57365a83e8683688c47906;p=p5sagit%2Fp5-mst-13.2.git

Class::Struct has an incomplete tied array package

	Message-ID: <yek1zr3vi70.fsf@elva.cyberscience.com>

p4raw-id: //depot/maint-5.005/perl@1688
---

diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm
index a39d1ac..8fddfbf 100644
--- a/lib/Class/Struct.pm
+++ b/lib/Class/Struct.pm
@@ -40,6 +40,11 @@ sub printem {
         $self->[$index];
     }
 
+    sub FETCHSIZE {
+        my $self = shift;
+        return scalar(@$self);
+    }
+
     sub DESTROY { }
 }