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: c8f8524) | patch
Produce the right error for goto "\0"
authorFather Chrysostomos <sprout@cpan.org>
Mon, 23 Apr 2012 03:34:24 +0000 (20:34 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 21 May 2012 23:51:30 +0000 (16:51 -0700)
commit3532f34a665d9e3c45ae24b05a693150a285cde9
treec69f02feba34af1aa0abb05acbbaa3b0b1148f99tree | snapshot
parentc8f85248c653c2ed4452f5de552ef3f50c4a1120commit | diff
Produce the right error for goto "\0"

Since we have supported for embedded nulls in strings, we shouldn’t
be using if(*label) to see whether label has a non-zero length.

It’s probably not possible to get a null into a label, but we should
still say ‘can’t find’ rather than ‘must have’ in that case.
op.c diff | blob | blame | history
pp_ctl.c diff | blob | blame | history
t/op/goto.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.