diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/_server.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/_server.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/_server.pm b/Master/tlpkg/tlperl/lib/URI/_server.pm index f72ec22657b..643d13e1bc9 100644 --- a/Master/tlpkg/tlperl/lib/URI/_server.pm +++ b/Master/tlpkg/tlperl/lib/URI/_server.pm @@ -1,8 +1,10 @@ package URI::_server; -require URI::_generic; -@ISA=qw(URI::_generic); use strict; +use warnings; + +use parent 'URI::_generic'; + use URI::Escape qw(uri_unescape); sub _uric_escape { @@ -19,7 +21,7 @@ sub _uric_escape { } sub _host_escape { - return unless $_[0] =~ /[^URI::uric]/; + return unless $_[0] =~ /[^$URI::uric]/; eval { require URI::_idna; $_[0] = URI::_idna::encode($_[0]); |