diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/pop.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/pop.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/pop.pm b/Master/tlpkg/tlperl/lib/URI/pop.pm index 50b8d6dd511..daac9acd8eb 100644 --- a/Master/tlpkg/tlperl/lib/URI/pop.pm +++ b/Master/tlpkg/tlperl/lib/URI/pop.pm @@ -1,9 +1,10 @@ package URI::pop; # RFC 2384 -require URI::_server; -@ISA=qw(URI::_server); - use strict; +use warnings; + +use parent 'URI::_server'; + use URI::Escape qw(uri_unescape); sub default_port { 110 } @@ -31,7 +32,7 @@ sub user } } - return unless defined $old; + return undef unless defined $old; $old =~ s/;.*//; return uri_unescape($old); } @@ -59,7 +60,7 @@ sub auth } - return unless defined $old; + return undef unless defined $old; $old =~ s/^[^;]*//; return uri_unescape($1) if $old =~ /;auth=(.*)/i; return; |