From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 22 Feb 2006 23:43:10 +0000 (+0000)
Subject: Fix typos and a missing bracket.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd4732242c39afc4d1e45250e9c521014d93433d;p=p5sagit%2Fp5-mst-13.2.git

Fix typos and a missing bracket.

p4raw-id: //depot/perl@27274
---

diff --git a/pp.c b/pp.c
index d41dd57..1438f8d 100644
--- a/pp.c
+++ b/pp.c
@@ -645,7 +645,7 @@ PP(pp_study)
 	/* No point in studying a zero length string, and not safe to study
 	   anything that doesn't appear to be a simple scalar (and hence might
 	   change between now and when the regexp engine runs without our set
-	   magic ever running, such as a reference to an object with overloaded
+	   magic ever running) such as a reference to an object with overloaded
 	   stringification.  */
 	RETPUSHNO;
     }
diff --git a/t/op/studytied.t b/t/op/studytied.t
index d50c964..f56cc17 100644
--- a/t/op/studytied.t
+++ b/t/op/studytied.t
@@ -45,6 +45,6 @@ for my $do_study qw( 0 1 ) {
     is( index( $x, 'n' ), 0,    qq{"next" contains "n" at pos 0} );
 
     # The letter "t" is in both, but in different positions
-    ok( $x =~ /t/,              qq{"next" matches /x/} );
-    is( index( $x, 't' ), 3,    qq{"next" contains "x" at pos 3} );
+    ok( $x =~ /t/,              qq{"next" matches /t/} );
+    is( index( $x, 't' ), 3,    qq{"next" contains "t" at pos 3} );
 }