Correct two comments in a sample script

[perl/modules/Scope-Upper.git] / samples / try.pl

diff --git a/samples/try.pl b/samples/try.pl
index d49c18345b1b308d46241670df4d2c0714a460e5..305a0ec3bef65ec86220ecd60386bd0adf11d595 100644 (file)
--- 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";