From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 24 Mar 1999 10:15:00 +0000 (+0000)
Subject: doc tweak suggested by M.J.T. Guy <mjtg@cus.cam.ac.uk>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa08c05b640ede69b33d2ae5b23634d6e5b0865c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";