diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/gopher.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/gopher.pm | 9 |
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, @_) } |