This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add assertion
authorKarl Williamson <khw@cpan.org>
Fri, 20 Feb 2015 04:03:44 +0000 (21:03 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 20 Feb 2015 06:05:59 +0000 (23:05 -0700)
regcomp.c

index 6052dc3..68f1c49 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -15472,6 +15472,8 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
     }
 
     if (ret_invlist) {
+        assert(cp_list);
+
         *ret_invlist = cp_list;
         SvREFCNT_dec(swash);