This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / foo
diff --git a/foo b/foo
index 94d9292..8977a26 100755 (executable)
--- a/foo
+++ b/foo
@@ -1,5 +1,12 @@
 #!./perl
 
-# Test the singlequoted eval optimizer
+tie ( @a, TST_tie, "arg1", "arg2" ); 
+$a[2]=[1];
 
-for (1..1) { }
+package TST_tie;
+
+sub new { bless []; }
+
+sub fetch { print "store @_\n" }
+sub store { print "store @_\n" }
+sub delete { print "store @_\n" }