diff options
| author | M. J. T. Guy <mjtg@cus.cam.ac.uk> | 2000-07-25 13:52:45 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-25 13:59:28 +0000 |
| commit | 4ac469dc3d5bdda48d1fc1e1ea92a82232cc5603 (patch) | |
| tree | 245564d3a87f911b5bb3077960f5b71e5685f21f /t | |
| parent | 297b36dcf845fc5195afb0a1d7e83d539bb1d4ed (diff) | |
| download | perl-4ac469dc3d5bdda48d1fc1e1ea92a82232cc5603.tar.gz | |
Get UTF16 BOMs working. Patch from
Subject: Re: [ID 20000719.001] Problem with bleadperl of 7/18/00
Date: Tue, 25 Jul 2000 12:52:45 +0100
Message-Id: <E13H3GP-0004MR-00@libra.cus.cam.ac.uk>
and notes from
Subject: Re: [ID 20000719.001] Problem with bleadperl of 7/18/00
From: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
Date: Tue, 25 Jul 2000 11:43:25 +0100
Message-Id: <E13H2BJ-0002nG-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6435
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/require.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index 48e3e0038b..51f513f5c8 100755 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -132,7 +132,8 @@ $i++; do_require("$utf8\nprint \"ok $i\n\"; 1;\n"); $i++; do_require("$utf16\n1;"); -print "ok $i\n" if $@ =~ /Unsupported script encoding/; +print "not " unless $@ =~ /^Unrecognized character /; +print "ok $i\n"; END { 1 while unlink 'bleah.pm'; 1 while unlink 'bleah.do'; } |