Changeset 24938

Timestamp:

11/26/08 17:07:12 (4 years ago)

Author:

kazuho

Message:

should be 1

Files:

• lang/perl/Class-Accessor-Lite/trunk/lib/Class/Accessor/Lite.pm (modified) (1 diff)

lang/perl/Class-Accessor-Lite/trunk/lib/Class/Accessor/Lite.pm

@@ -8 +8 @@
     shift; # usage: Class::Accessor::Lite->mk_accessors(qw(...));
     no strict 'refs';
-    my $pkg = caller(0);
+    my $pkg = caller(1);
     for my $n (@_) {
         *{$pkg . '::' . $n} = __m($n);