summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/_server.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/_server.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/_server.pm8
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]);