diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/re.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/re.pm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/re.pm b/Master/tlpkg/tlperl/lib/re.pm index 9d0921b80ea..5ce980104a4 100644 --- a/Master/tlpkg/tlperl/lib/re.pm +++ b/Master/tlpkg/tlperl/lib/re.pm @@ -4,7 +4,7 @@ package re; use strict; use warnings; -our $VERSION = "0.18"; +our $VERSION = "0.19_01"; our @ISA = qw(Exporter); our @EXPORT_OK = ('regmust', qw(is_regexp regexp_pattern @@ -108,10 +108,6 @@ sub _load_unload { sub bits { my $on = shift; my $bits = 0; - unless (@_) { - require Carp; - Carp::carp("Useless use of \"re\" pragma"); - } ARG: foreach my $idx (0..$#_){ my $s=$_[$idx]; @@ -146,7 +142,7 @@ sub bits { my $reflags = $^H{reflags} || 0; my $seen_charset; while ($s =~ m/( . )/gx) { - $_ = $1; + local $_ = $1; if (/[adul]/) { # The 'a' may be repeated; hide this from the rest of the # code by counting and getting rid of all of them, then |