diff options
Diffstat (limited to 'pod/perlop.pod')
| -rw-r--r-- | pod/perlop.pod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pod/perlop.pod b/pod/perlop.pod index c4a342be7b..a0756678d1 100644 --- a/pod/perlop.pod +++ b/pod/perlop.pod @@ -741,10 +741,10 @@ combine several regexps like this to process a string part-by-part, doing different actions depending on which regexp matched. The next regexp would step in at the place the previous one left off. - $_ = <<'EOL'; + $_ = <<'EOL'; $url = new URI::URL "http://www/"; die if $url eq "xXx"; -EOL - LOOP: + EOL + LOOP: { print(" digits"), redo LOOP if /\G\d+\b[,.;]?\s*/g; print(" lowercase"), redo LOOP if /\G[a-z]+\b[,.;]?\s*/g; |