diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-25 03:40:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-25 03:40:45 +0000 |
| commit | 27e286305709fd65c0552ee5c80cd788a8114b0e (patch) | |
| tree | 2bacde39dbb279edab7f8821ae64b9d62cb14b4d /t | |
| parent | 550cec39f8a2a70bd279af1af893815632d4b7d3 (diff) | |
| download | perl-27e286305709fd65c0552ee5c80cd788a8114b0e.tar.gz | |
Cut-and-paste errors.
p4raw-id: //depot/perl@14861
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 00ea74fdbd..86025d1fa6 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -2290,7 +2290,7 @@ print "# some Unicode properties\n"; 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 "# some Unicode properties\n"; 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 "# some Unicode properties\n"; 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; |