In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c9701768842137264d0245944b038a5c23e589fe?hp=845ccf38911ca1b6b2a8144d8725b30f40b082ee>
- Log ----------------------------------------------------------------- commit c9701768842137264d0245944b038a5c23e589fe Author: Karl Williamson <[email protected]> Date: Tue Jul 23 10:40:07 2013 -0600 _invlist_intersection() didn't work for NULL first param It is supposed to accept a NULL first parameter (one of the operands to the intersection). This adds a special case for it. ----------------------------------------------------------------------- Summary of changes: regcomp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/regcomp.c b/regcomp.c index 0211f96..be45caa 100644 --- a/regcomp.c +++ b/regcomp.c @@ -7836,7 +7836,7 @@ Perl__invlist_intersection_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, assert(a != b); /* Special case if either one is empty */ - len_a = _invlist_len(a); + len_a = (a == NULL) ? 0 : _invlist_len(a); if ((len_a == 0) || ((len_b = _invlist_len(b)) == 0)) { if (len_a != 0 && complement_b) { -- Perl5 Master Repository
