X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlretut.pod;h=22fc44a7b2c75e87bab8c08eff316e0104712868;hb=e74a3e73f5e128a77b691fcfc83214f58419a493;hp=71317693bd57d374c8e65d55fa0c5560e26c8803;hpb=fd2b7f5590d4687733156a2ab08ebef34d5ca503;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlretut.pod b/pod/perlretut.pod
index 7131769..22fc44a 100644
--- a/pod/perlretut.pod
+++ b/pod/perlretut.pod
@@ -2088,7 +2088,7 @@ algorithm.
     while( $command = <> ){
         $command =~ s/^\s+|\s+$//g;  # trim leading and trailing spaces
         if( ( @matches = $kwds =~ /\b$command\w*/g ) == 1 ){
-            print "command: '$matches'\n";
+            print "command: '@matches'\n";
         } elsif( @matches == 0 ){
             print "no such command: '$command'\n";
         } else {