Changeset 3569 for lang/perl/underscore

Timestamp:

12/25/07 17:30:46 (5 years ago)

Author:

dankogai

Message:

lang/perl/underscore - outlaws global $_

Files:

• lang/perl/underscore/trunk/lib/underscore.pm (modified) (2 diffs)

lang/perl/underscore/trunk/lib/underscore.pm

@@ -26 +26 @@
 
 sub FETCH{ $_[0]->[0]($_[0]->[1]) }
-sub STORE{ $_[0]->[0]() }
+sub STORE{ $_[0]->[0]($_[0]->[1]) }
 
 1; # End of underscore
@@ -37 +37 @@
 =head1 VERSION
 
-$Id: underscore.pm,v 0.1 2007/12/25 08:21:31 dankogai Exp dankogai $
+$Id: underscore.pm,v 0.1 2007/12/25 08:30:14 dankogai Exp dankogai $
 
 =cut