diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2004-07-09 03:35:22 +0300 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-07-09 21:03:11 +0000 |
| commit | 078c425b721ea35d568a7ec980e3b95d036a25c3 (patch) | |
| tree | cff697fcf7c4b60e239516385829f29dd0c26a4a /t | |
| parent | cd793d32bae0d3b42e0c38fe944828bcfc96d2aa (diff) | |
| download | perl-078c425b721ea35d568a7ec980e3b95d036a25c3.tar.gz | |
Re: Segfault using HTML::Entities
Message-ID: <40EDBE1A.6080205@iki.fi>
Date: Fri, 09 Jul 2004 00:35:22 +0300
p4raw-id: //depot/perl@23074
Diffstat (limited to 't')
| -rw-r--r-- | t/run/fresh_perl.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index d47f27f6cc..dbbe6a553f 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -855,3 +855,19 @@ print glob(q(./"TEST")); EXPECT ./"TEST" ./"TEST" +######## "Segfault using HTML::Entities", Richard Jolly <richardjolly@mac.com>, <A3C7D27E-C9F4-11D8-B294-003065AE00B6@mac.com> in perl-unicode@perl.org +-lw +BEGIN { + eval 'require Encode'; + if ($@) { exit 0 } # running minitest? +} +# Test case cut down by jhi +$SIG{__WARN__} = sub { $@ = shift }; +use Encode; +my $t = "\xE9"; +Encode::_utf8_on($t); +$t =~ s/([^a])//ge; +$@ =~ s/ at .*/ at/; +print $@ +EXPECT +Malformed UTF-8 character (unexpected end of string) at |