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