diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Protocol.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/LWP/Protocol.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/Protocol.pm b/Master/tlpkg/tlperl/site/lib/LWP/Protocol.pm index 3adbaf3de49..02a57e90fca 100644 --- a/Master/tlpkg/tlperl/site/lib/LWP/Protocol.pm +++ b/Master/tlpkg/tlperl/site/lib/LWP/Protocol.pm @@ -2,7 +2,7 @@ package LWP::Protocol; use base 'LWP::MemberMixin'; -our $VERSION = '6.25'; +our $VERSION = '6.31'; use strict; use Carp (); @@ -53,7 +53,7 @@ sub implementor return '' unless $scheme =~ /^([.+\-\w]+)$/; # check valid URL schemes $scheme = $1; # untaint - $scheme =~ s/[.+\-]/_/g; # make it a legal module name + $scheme =~ tr/.+-/_/; # make it a legal module name # scheme not yet known, look for a 'use'd implementation $ic = "LWP::Protocol::$scheme"; # default location |