Change 14861: Cut-and-paste errors.

[Jarkko Hietaniemi]

Change 14861 by jhi@alpha on 2002/02/25 03:40:45

        Cut-and-paste errors.

Affected files ...

.... //depot/perl/t/op/pat.t#161 edit

Differences ...

==== //depot/perl/t/op/pat.t#161 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Sun Feb 24 20:45:06 2002
+++ perl/t/op/pat.t     Sun Feb 24 20:45:06 2002
@@ -2290,7 +2290,7 @@
     print "not " unless "a\x{100}" =~ /A/i;
     print "ok 754\n";
 
-    print "not " unless "A\x{100}" =~ /A/i;
+    print "not " unless "A\x{100}" =~ /a/i;
     print "ok 755\n";
 
     print "not " unless "a\x{100}" =~ /a/i;
@@ -2314,7 +2314,7 @@
     print "not " unless "a\x{100}" =~ /A\x{100}/i;
     print "ok 762\n";
 
-    print "not " unless "A\x{100}" =~ /A\x{100}/i;
+    print "not " unless "A\x{100}" =~ /a\x{100}/i;
     print "ok 763\n";
 
     print "not " unless "a\x{100}" =~ /a\x{100}/i;
@@ -2326,7 +2326,7 @@
     print "not " unless "a\x{100}" =~ /[A]/i;
     print "ok 766\n";
 
-    print "not " unless "A\x{100}" =~ /[A]/i;
+    print "not " unless "A\x{100}" =~ /[a]/i;
     print "ok 767\n";
 
     print "not " unless "a\x{100}" =~ /[a]/i;
End of Patch.