diff options
| author | Mark Kvale <kvale@phy.ucsf.edu> | 2004-02-24 03:32:34 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-24 19:30:12 +0000 |
| commit | 16e8b84077a7f90c46bd95640feeb546b4bfbf75 (patch) | |
| tree | fdb703a9468564d0bd4f2f7d7cdbdd2907cd4742 /pod/perlretut.pod | |
| parent | 4c621fafb1207a431474b7e038369b162e2416f5 (diff) | |
| download | perl-16e8b84077a7f90c46bd95640feeb546b4bfbf75.tar.gz | |
Bugfix for perlrequick and perlretut
Message-Id: <200402241132.34656.kvale@phy.ucsf.edu>
p4raw-id: //depot/perl@22368
Diffstat (limited to 'pod/perlretut.pod')
| -rw-r--r-- | pod/perlretut.pod | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/perlretut.pod b/pod/perlretut.pod index be4693dd0f..b738c3b2cb 100644 --- a/pod/perlretut.pod +++ b/pod/perlretut.pod @@ -1325,9 +1325,9 @@ If you change C<$pattern> after the first substitution happens, perl will ignore it. If you don't want any substitutions at all, use the special delimiter C<m''>: - $pattern = 'Seuss'; + @pattern = ('Seuss'); while (<>) { - print if m'$pattern'; # matches '$pattern', not 'Seuss' + print if m'@pattern'; # matches literal '@pattern', not 'Seuss' } C<m''> acts like single quotes on a regexp; all other C<m> delimiters |