X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Ftry.pl;fp=samples%2Ftry.pl;h=e207e14beef5e9b22bcd8213ed21e0e31fc6a79e;hb=daa5478303f254eff6015045396920baafee0688;hp=7e1cb2a7d3019c91881b40ec0add369a4f773512;hpb=e4175b0fdbe9a877f01c26f2b2a72aa977e75c98;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/samples/try.pl b/samples/try.pl
index 7e1cb2a..e207e14 100644
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -5,7 +5,7 @@ use warnings;
 
 use blib;
 
-use Scope::Upper qw/unwind want_at :words/;
+use Scope::Upper qw<unwind want_at :words>;
 
 sub try (&) {
  my @result = shift->();
@@ -15,13 +15,13 @@ sub try (&) {
 
 sub zap {
  try {
-  my @things = qw/a b c/;
+  my @things = qw<a b c>;
   return @things; # returns to try() and then outside zap()
  };
  print "NOT REACHED\n";
 }
 
-my @stuff = zap(); # @stuff contains qw/a b c/
+my @stuff = zap(); # @stuff contains qw<a b c>
 my $stuff = zap(); # $stuff contains 3
 
 print "zap() returns @stuff in list context and $stuff in scalar context\n";