summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/gopher.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/gopher.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/gopher.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/gopher.pm b/Master/tlpkg/tlperl/lib/URI/gopher.pm
index ae6690423bc..1da0b11f7ee 100644
--- a/Master/tlpkg/tlperl/lib/URI/gopher.pm
+++ b/Master/tlpkg/tlperl/lib/URI/gopher.pm
@@ -1,9 +1,10 @@
package URI::gopher; # <draft-murali-url-gopher>, Dec 4, 1996
-require URI::_server;
-@ISA=qw(URI::_server);
-
use strict;
+use warnings;
+
+use parent 'URI::_server';
+
use URI::Escape qw(uri_unescape);
# A Gopher URL follows the common internet scheme syntax as defined in
@@ -58,7 +59,7 @@ sub gopher_type
$gtype;
}
-*gtype = \&gopher_type; # URI::URL compatibility
+sub gtype { goto &gopher_type } # URI::URL compatibility
sub selector { shift->_gfield(0, @_) }
sub search { shift->_gfield(1, @_) }