diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-06-10 21:07:07 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-06-10 21:07:07 +0200 |
| commit | 92a24ac3df5779ed0c9681cafefdd31fc6e1ae98 (patch) | |
| tree | 4b9bda169a9654f134c0fda83e79a659f0a879ab /pod/perlretut.pod | |
| parent | 8bc7f08e00054ded89e7d2347c857303154f0abd (diff) | |
| download | perl-92a24ac3df5779ed0c9681cafefdd31fc6e1ae98.tar.gz | |
Small typo in example.
Thanks to "Jim Ferguson"
Diffstat (limited to 'pod/perlretut.pod')
| -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 { |