X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Ftry.pl;fp=samples%2Ftry.pl;h=305a0ec3bef65ec86220ecd60386bd0adf11d595;hb=a09dde4832af673cb9fc0c32222db6da34d70999;hp=d49c18345b1b308d46241670df4d2c0714a460e5;hpb=1e8a530156ab09a816d8afc37692d1b46032eb32;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/samples/try.pl b/samples/try.pl
index d49c183..305a0ec 100644
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -21,7 +21,7 @@ sub zap {
  print "NOT REACHED\n";
 }
 
-my @what = zap(); # @what contains @things
-my $what = zap(); # @what contains @things
+my @what = zap(); # @what contains qw/a b c/
+my $what = zap(); # $what contains 3
 
 print "zap() returns @what in list context and $what in scalar context\n";