diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:41:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:41:41 +0000 |
| commit | 66e6b4c55568ab053eb52b573c61e4e3f9235b32 (patch) | |
| tree | 6ddddda74ebd725522b8c265d35e5cd8fbdad696 /ext/re | |
| parent | dd5def096b7b2dabfe2022669c29c16240d7da96 (diff) | |
| download | perl-66e6b4c55568ab053eb52b573c61e4e3f9235b32.tar.gz | |
Actually, only changes to regexec.c from #30081 needed to be reverted.
p4raw-id: //depot/perl@30352
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/lib/re/Tie/Hash/NamedCapture.pm | 1 | ||||
| -rw-r--r-- | ext/re/re.pm | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/ext/re/lib/re/Tie/Hash/NamedCapture.pm b/ext/re/lib/re/Tie/Hash/NamedCapture.pm index a76c6ab7aa..b86463dfe8 100644 --- a/ext/re/lib/re/Tie/Hash/NamedCapture.pm +++ b/ext/re/lib/re/Tie/Hash/NamedCapture.pm @@ -2,6 +2,7 @@ package re::Tie::Hash::NamedCapture; use strict; use warnings; our $VERSION = "0.01"; +no re 'debug'; use re qw(is_regexp regname regnames diff --git a/ext/re/re.pm b/ext/re/re.pm index 4a64af3964..4f8d4105a8 100644 --- 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); + last; } elsif (exists $bitmask{$s}) { $bits |= $bitmask{$s}; } elsif ($EXPORT_OK{$s}) { |