diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:08:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:08:03 +0000 |
| commit | dd5def096b7b2dabfe2022669c29c16240d7da96 (patch) | |
| tree | e1f1820ca585733b77168de8466f8cfb58d21692 /ext | |
| parent | b54fc2b60bc365faffaf24860c5306add8af3c87 (diff) | |
| download | perl-dd5def096b7b2dabfe2022669c29c16240d7da96.tar.gz | |
Revert change #30081 at dmq's request, and mark its tests
as TODO. (This should restore compilation with g++)
p4raw-link: @30081 on //depot/perl: ded05c2a789e70bb7204e21b2aa98c6d1ac776c2
p4raw-id: //depot/perl@30351
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/re/lib/re/Tie/Hash/NamedCapture.pm | 1 | ||||
| -rw-r--r-- | ext/re/re.pm | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/ext/re/lib/re/Tie/Hash/NamedCapture.pm b/ext/re/lib/re/Tie/Hash/NamedCapture.pm index b86463dfe8..a76c6ab7aa 100644 --- a/ext/re/lib/re/Tie/Hash/NamedCapture.pm +++ b/ext/re/lib/re/Tie/Hash/NamedCapture.pm @@ -2,7 +2,6 @@ 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 4f8d4105a8..4a64af3964 100644 --- a/ext/re/re.pm +++ b/ext/re/re.pm @@ -138,7 +138,6 @@ 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}) { |