This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix XXX comment for regcomp.c:S_reg
authorHugo van der Sanden <hv@crypt.org>
Tue, 10 Mar 2015 08:48:44 +0000 (08:48 +0000)
committerHugo van der Sanden <hv@crypt.org>
Tue, 10 Mar 2015 08:48:44 +0000 (08:48 +0000)
It actually does do the right thing: /(?(R0))/ and /(?(R00))/ both fall
through to give an appropriate error 'Switch condition not recognized'

regcomp.c

index 4cbcf36..998d0c3 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10318,7 +10318,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
                             parno = (I32)uv;
                             RExC_parse = (char*)endptr;
                         }
-                        /* XXX else what? */
+                        /* else "Switch condition not recognized" below */
                    } else if (RExC_parse[0] == '&') {
                        SV *sv_dat;
                        RExC_parse++;