diff options
| author | Keith Thompson <kst@mib.org> | 2011-07-29 17:17:00 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-02 12:25:39 -0700 |
| commit | b539c2c9496bf950c94dcc39801d7f3a5a0cf8c5 (patch) | |
| tree | 4319a3e318353800a561a872119cd2f7e08e2757 /pod/perlretut.pod | |
| parent | 6e8be9cfdd52adfc933b189c5829c3088178a7fe (diff) | |
| download | perl-b539c2c9496bf950c94dcc39801d7f3a5a0cf8c5.tar.gz | |
Fix typos in several pod/perl*.pod files
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 928dfb5732..218e6b30dc 100644 --- a/pod/perlretut.pod +++ b/pod/perlretut.pod @@ -2731,7 +2731,7 @@ groups or produce results, it may be necessary to use this in combination with embedded code. %count = (); - "supercalifragilisticexpialidoceous" =~ + "supercalifragilisticexpialidocious" =~ /([aeiou])(?{ $count{$1}++; })(*FAIL)/i; printf "%3d '%s'\n", $count{$_}, $_ for (sort keys %count); @@ -2744,7 +2744,7 @@ for another vowel. Thus, match or no match makes no difference, and the regexp engine proceeds until the entire string has been inspected. (It's remarkable that an alternative solution using something like - $count{lc($_)}++ for split('', "supercalifragilisticexpialidoceous"); + $count{lc($_)}++ for split('', "supercalifragilisticexpialidocious"); printf "%3d '%s'\n", $count2{$_}, $_ for ( qw{ a e i o u } ); is considerably slower.) |