diff options
| -rw-r--r-- | pod/perlretut.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlretut.pod b/pod/perlretut.pod index 71317693bd..22fc44a7b2 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 { |