This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Follow-up to previous Solaris/S_regmatch commit
authorDavid Mitchell <davem@iabyn.com>
Mon, 4 Apr 2016 13:51:40 +0000 (14:51 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 4 Apr 2016 13:51:40 +0000 (14:51 +0100)
PL_charclass is the thing being temporarily #defined to something else, so
it's the thing that needs #undeffing at the end, not pl_charclass_dup.

Doesn't make any difference at the moment, but would if at some point
a function following S_regmatch() started making use of PL_charclass.

regexec.c

index 9acb5a0..cdaa95c 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -8324,7 +8324,7 @@ NULL
        }
     }
 #ifdef SOLARIS_BAD_OPTIMIZER
-#  undef pl_charclass_dup
+#  undef PL_charclass
 #endif
 
     /*