diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-11 22:24:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-11 22:24:31 +0000 |
| commit | 746b446a82799460054f7c1acb01d263532ccf04 (patch) | |
| tree | 87c40df21b09ddfd758c9ef2d7fd26368ef0fdc8 /lib/utf8.t | |
| parent | bcdf844ec43758755fb92c24cba65e915d95b25b (diff) | |
| download | perl-746b446a82799460054f7c1acb01d263532ccf04.tar.gz | |
EBCDIC: the toke.c wariness about UTF-8 (really, UTF-EBCDIC)
scripts does not apply any more. (The utf8.t needed a little
bit of relaxing to work in EBCDIC, since *both* the bytes in
subtest #30 are illegal UTF-EBCDIC, and the error message
matched is slightly different.) The utf8.t now passes.
p4raw-id: //depot/perl@16550
Diffstat (limited to 'lib/utf8.t')
| -rw-r--r-- | lib/utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index acd64bfb21..e11d856d80 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -166,7 +166,7 @@ plan tests => 94; use utf8; %a = ("\xE1\xA0"=>"sterling"); print 'start'; printf '%x,', ord \$_ foreach keys %a; print "end\n"; BANG - qr/^Malformed UTF-8 character \(2 bytes, need 3.+\).*start\d+,end$/s + qr/^Malformed UTF-8 character \(\d bytes?, need \d, .+\).*start\d+,end$/sm ], ); foreach (@tests) { |