X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlop.pod;h=a7553dff42e694bd308114e5e2ff4c993df7d1e8;hb=2decb4fb82e001e3c9671c57b61232c651a9c22c;hp=c430dbc48d5115f4698756e8555dd4712f31f5f2;hpb=6e7c9e4dbac15378c097f03304f6025aebc78a15;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlop.pod b/pod/perlop.pod
index c430dbc..a7553df 100644
--- a/pod/perlop.pod
+++ b/pod/perlop.pod
@@ -169,11 +169,11 @@ search or modify the string $_ by default.  This operator makes that kind
 of operation work on some other string.  The right argument is a search
 pattern, substitution, or transliteration.  The left argument is what is
 supposed to be searched, substituted, or transliterated instead of the default
-$_.  The return value indicates the success of the operation.  (If the
+$_.  The return value indicates the success of the operation.  If the
 right argument is an expression rather than a search pattern,
 substitution, or transliteration, it is interpreted as a search pattern at run
-time.  This can be is less efficient than an explicit search, because the
-pattern must be compiled every time the expression is evaluated).
+time.  This can be less efficient than an explicit search, because the
+pattern must be compiled every time the expression is evaluated.
 
 Binary "!~" is just like "=~" except the return value is negated in
 the logical sense.
@@ -963,7 +963,7 @@ notably if the result of qr() is used standalone:
 	my @compiled = map qr/$_/i, @$patterns;
 	grep {
 	    my $success = 0;
-	    foreach my $pat @compiled {
+	    foreach my $pat (@compiled) {
 		$success = 1, last if /$pat/;
 	    }
 	    $success;