X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=samples%2Ftry.pl;h=57477fe9c493c711b1885233e13cacb9bca0d89f;hb=4e977a0b1db65e44cf4c6184792208a7930c34f4;hp=250ff60aeba64d4bd332ef6656dcc303cd81d060;hpb=118a833f999d3ed851b0f2aa28f10f13bd888046;p=perl%2Fmodules%2FSub-Prototype-Util.git

diff --git a/samples/try.pl b/samples/try.pl
index 250ff60..57477fe 100755
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -22,7 +22,7 @@ print "When flatten with prototype $proto, this gives :\n", Dumper(\@flat);
 recall 'CORE::push', @args; # @a contains 'a', 'b', 'c', 1, { d => 2 }, undef, 3
 print "After recalling CORE::push with \@args, \@a contains :\n", Dumper(\@a);
 
-my $splice = wrap 'CORE::splice', compile => 1;
+my $splice = wrap 'CORE::splice';
 my @b = $splice->(\@a, 4, 2);
 print "After calling wrapped splice with \@a, it contains :\n", Dumper(\@a);
 print "What was returned :\n", Dumper(\@b);