Changeset 24957

Timestamp:

11/26/08 18:26:33 (4 years ago)

Author:

kazuho

Message:

update Class::Accessor::Lite to 0.02

Location:

lang/perl/MENTA/trunk

Files:

• app/data/data.sqlite (modified) (previous)
• extlib/Class/Accessor/Lite.pm (modified) (1 diff)

lang/perl/MENTA/trunk/extlib/Class/Accessor/Lite.pm

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