This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: d78f9ff) | patch
[perl #99984] Incorrect errmsg with our $::é
authorFather Chrysostomos <sprout@cpan.org>
Sat, 1 Oct 2011 13:30:35 +0000 (06:30 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 1 Oct 2011 13:33:49 +0000 (06:33 -0700)
commitba6ff154b0d807025f5294b2c3e9623fd60a6e97
tree93f8ddbbe96480fc1a61caaa2b9599d59319d7a6tree | snapshot
parentd78f9ffa7317e24a5eaf54a2cf107e6663784159commit | diff
[perl #99984] Incorrect errmsg with our $::é

Having PL_parser->error_count set to non-zero when utf8_heavy.pl tries
to do() one of its swashes results in ‘Compilation error’ being placed
in $@ during the do, even if it was successful.  This patch sets the
error_count to 0 before calling SWASHNEW, to prevent that.  It uses
SAVEI8, to make sure it is restored on scope exit.
t/uni/lex_utf8.t diff | blob | blame | history
utf8.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.