(Retracted by #11285.)

[p5sagit/p5-mst-13.2.git] / pod / perlfaq6.pod

diff --git a/pod/perlfaq6.pod b/pod/perlfaq6.pod
index 45f0966..121f66c 100644 (file)
--- a/pod/perlfaq6.pod
+++ b/pod/perlfaq6.pod
@@ -115,7 +115,7 @@ Here's code that finds everything between START and END in a paragraph:
 
     undef $/;                  # read in whole file, not just one line or paragraph
     while ( <> ) {
-       while ( /START(.*?)END/sm ) { # /s makes . cross line boundaries
+       while ( /START(.*?)END/sgm ) { # /s makes . cross line boundaries
            print "$1\n";
        }
     }