Actually, only changes to regexec.c from #30081 needed to be reverted.

[perl5.git] / ext / re / re.pm

diff --git a/ext/re/re.pm b/ext/re/re.pm
index 4a64af3..4f8d410 100644 (file)
--- a/ext/re/re.pm
+++ b/ext/re/re.pm
@@ -138,6 +138,7 @@ sub bits {
         } elsif ($s eq 'debug' or $s eq 'debugcolor') {
            setcolor() if $s =~/color/i;
            _load_unload($on);
         } elsif ($s eq 'debug' or $s eq 'debugcolor') {
            setcolor() if $s =~/color/i;
            _load_unload($on);

+           last;

         } elsif (exists $bitmask{$s}) {
            $bits |= $bitmask{$s};
        } elsif ($EXPORT_OK{$s}) {
         } elsif (exists $bitmask{$s}) {
            $bits |= $bitmask{$s};
        } elsif ($EXPORT_OK{$s}) {