This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove extraneous tests
authorKarl Williamson <khw@cpan.org>
Fri, 5 Sep 2014 15:45:27 +0000 (09:45 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 7 Sep 2014 03:44:49 +0000 (21:44 -0600)
These two messages used to be warnings, but are now errors, so there is
no need to test which pass they are being output in.

regcomp.c

index 73ad315..ba51612 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11494,7 +11494,7 @@ tryagain:
            ret = reg_node(pRExC_state, op);
            FLAGS(ret) = get_regex_charset(RExC_flags);
            *flagp |= SIMPLE;
-           if (! SIZE_ONLY && (U8) *(RExC_parse + 1) == '{') {
+           if ((U8) *(RExC_parse + 1) == '{') {
                 /* diag_listed_as: Use "%s" instead of "%s" */
                vFAIL("Use \"\\b\\{\" instead of \"\\b{\"");
            }
@@ -11512,7 +11512,7 @@ tryagain:
            ret = reg_node(pRExC_state, op);
            FLAGS(ret) = get_regex_charset(RExC_flags);
            *flagp |= SIMPLE;
-           if (! SIZE_ONLY && (U8) *(RExC_parse + 1) == '{') {
+           if ((U8) *(RExC_parse + 1) == '{') {
                 /* diag_listed_as: Use "%s" instead of "%s" */
                vFAIL("Use \"\\B\\{\" instead of \"\\B{\"");
            }