diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-11-04 13:23:49 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-04 12:17:12 +0000 |
| commit | 1d86a7f9aafa7b00ab187ace80f468664c66c924 (patch) | |
| tree | f3bbc656a4ffc8d58807a3ea2658290d3c51511e /t | |
| parent | 532eb83898dc393c9f89b475b9f77385c39eff97 (diff) | |
| download | perl-1d86a7f9aafa7b00ab187ace80f468664c66c924.tar.gz | |
Re: [perl #17064] illegal legal unicode character
Message-Id: <200211041323.gA4DNn313132@crypt.compulink.co.uk>
p4raw-id: //depot/perl@18085
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/split.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/op/split.t b/t/op/split.t index db23c9073c..669ba7360e 100755 --- a/t/op/split.t +++ b/t/op/split.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..46\n"; +print "1..47\n"; $FS = ':'; @@ -274,3 +274,16 @@ print "ok 32\n"; $x[2] eq '2'; print "ok 46\n"; } + +{ + # [perl #17064] + my $warn; + local $SIG{__WARN__} = sub { $warn = join '', @_; chomp $warn }; + my $char = "\x{10f1ff}"; + my @a = split /\r?\n/, "$char\n"; + if (@a == 1 && $a[0] eq $char && !defined($warn)) { + print "ok 47\n"; + } else { + print "not ok 47\t# <@a> <$warn>\n"; + } +} |