Changeset 25134

Timestamp:

11/27/08 20:25:24 (4 years ago)

Author:

tokuhirom

Message:

ここも $_[0] をわたす必要がある

Files:

• lang/perl/Shika/trunk/tools/accessor_installer_generator.pl (modified) (1 diff)

lang/perl/Shika/trunk/tools/accessor_installer_generator.pl

@@ -17 +17 @@
                 die "$pkg does not support builder method '_build_$n' for attribute '$n'"
                     unless my $code = $pkg->can("_build_$n");
-                return $_[0]->{$n} = $code->();
+                return $_[0]->{$n} = $code->($_[0]);
             }
             return $_[0]->{$n};