doc tweak suggested by M.J.T. Guy <mjtg@cus.cam.ac.uk>

p4raw-id: //depot/perl@3151

diff --git a/pod/perlop.pod b/pod/perlop.pod
index 313ed58..f70311b 100644 (file)
--- a/pod/perlop.pod
+++ b/pod/perlop.pod
@@ -830,10 +830,12 @@ Examples:
     ($one,$five,$fifteen) = (`uptime` =~ /(\d+\.\d+)/g);
 
     # scalar context
-    $/ = ""; $* = 1;  # $* deprecated in modern perls
-    while (defined($paragraph = <>)) {
-       while ($paragraph =~ /[a-z]['")]*[.!?]+['")]*\s/g) {
-           $sentences++;
+    {
+       local $/ = "";
+       while (defined($paragraph = <>)) {
+           while ($paragraph =~ /[a-z]['")]*[.!?]+['")]*\s/g) {
+               $sentences++;
+           }
        }
     }
     print "$sentences\n";