X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=samples%2Ftry.pl;h=70645492c5f7867483e11646f0aab2900d9b240a;hp=a3e25b5fc2ef0060991b267e922e5d909f291b32;hb=14a44e7b2f834cbd0d2ba8cc63deda55b3e5f0dd;hpb=a2cacd5001fc982edeb39a4262079c6661ceb2f4

diff --git a/samples/try.pl b/samples/try.pl
index a3e25b5..7064549 100755
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -6,14 +6,14 @@ use strict;
 use warnings;
 
 use blib;
-use blib 't/Sub-Op-Test';
+use blib 't/Sub-Op-LexicalSub';
 
 my $code = $ARGV[0];
 die "Usage: $0 'code involving f() and g()'" unless defined $code;
 
 my $cb = eval <<"CODE";
- use Sub::Op::Test f => sub { say 'f(' . join(', ', \@_) . ')'; \@_ };
- use Sub::Op::Test g => sub { say 'g(' . join(', ', \@_) . ')'; \@_ };
+ use Sub::Op::LexicalSub f => sub { say 'f(' . join(', ', \@_) . ')'; \@_ };
+ use Sub::Op::LexicalSub g => sub { say 'g(' . join(', ', \@_) . ')'; \@_ };
  sub { $code }
 CODE
 die $@ if $@;