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: aeecb27) | patch
In S_regatom(), set flags to 0 at the start.
authorNicholas Clark <nick@ccl4.org>
Sat, 12 Jan 2013 10:45:26 +0000 (11:45 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 12 Jan 2013 10:53:16 +0000 (11:53 +0100)
commit8ec4ed08a39f899ec6c7eed67a0a0ab42ae08fd5
treee27fe70843f739590a4a0c72ba612df14083f0e9tree | snapshot
parentaeecb272a52502898390c1076c214d5f15615e0ecommit | diff
In S_regatom(), set flags to 0 at the start.

Without this, flags will be read uninitialised for the execution path that
ends up with "Internal urp". (Although it's not clear that that error message
is ever reachable.)

The bug was introduced in perl 5.000, which added (?#) comments and (?m)
style embedding flags. It's not present in alpha 9.
regcomp.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.