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: fae6f8f) | patch
Fix for perl #112316: Wrong behavior regarding labels with same prefix
authorBrian Fraser <fraserbn@gmail.com>
Fri, 6 Apr 2012 20:47:14 +0000 (17:47 -0300)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 7 Apr 2012 05:00:14 +0000 (22:00 -0700)
commiteade71555e37e053d1aa5b29a45a0f06b3a3458f
tree710a44f9e5ace1ca37dd96f969395b33c1473f0ctree | snapshot
parentfae6f8faebd031ebdb5f318e8a671e018b9a63c1commit | diff
Fix for perl #112316: Wrong behavior regarding labels with same prefix

The code that compared non UTF-8 labels neglected to check that
the label's length was equal before comparing them with a memEQ,
which lead to code that used labels with the same prefixes to fail:

./perl -Ilib -E 'CATCH: { CATCHLOOP: { last CATCH;  } die  }'
pp_ctl.c diff | blob | blame | history
t/op/goto.t diff | blob | blame | history
t/op/loopctl.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.