diff options
author | Karl Williamson <khw@cpan.org> | 2022-03-06 13:10:12 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-03-19 12:49:28 -0600 |
commit | 737a7c2c21f154d6bef1c3665a841788a91f8660 (patch) | |
tree | 8b0a03176b29e230c8afb1ac23a8ef6d761e0c56 /lib/perl5db.pl | |
parent | f3b9d183e48ac2bea3a55de469c56ca0e57884ce (diff) | |
download | perl-737a7c2c21f154d6bef1c3665a841788a91f8660.tar.gz |
Remove use of experimental regex sets warnings
These warnings are no longer generated; so simplify the core by not
trying to turn them off.
The warning is preserved so that other code need not change, but this
commit also turns the default generation of it off.
Diffstat (limited to 'lib/perl5db.pl')
-rw-r--r-- | lib/perl5db.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 8ece5151cb..c4186ccd2e 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -532,7 +532,7 @@ BEGIN { use vars qw($VERSION $header); # bump to X.XX in blead, only use X.XX_XX in maint -$VERSION = '1.70'; +$VERSION = '1.71'; $header = "perl5db.pl version $VERSION"; @@ -7614,7 +7614,6 @@ sub set_list { for my $i ( 0 .. $#list ) { $val = $list[$i]; $val =~ s/\\/\\\\/g; - no warnings 'experimental::regex_sets'; $val =~ s/ ( (?[ [\000-\xFF] & [:^print:] ]) ) / "\\0x" . unpack('H2',$1)/xaeg; $ENV{"${stem}_$i"} = $val; |