Fix typos and a missing bracket.
Nicholas Clark [Wed, 22 Feb 2006 23:43:10 +0000 (23:43 +0000)]
p4raw-id: //depot/perl@27274

pp.c
t/op/studytied.t

diff --git a/pp.c b/pp.c
index d41dd57..1438f8d 100644 (file)
--- 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;
     }
index d50c964..f56cc17 100644 (file)
@@ -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} );
 }