diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/_userpass.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/_userpass.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/_userpass.pm b/Master/tlpkg/tlperl/lib/URI/_userpass.pm index a0361ae0dd7..db8b53b5262 100644 --- a/Master/tlpkg/tlperl/lib/URI/_userpass.pm +++ b/Master/tlpkg/tlperl/lib/URI/_userpass.pm @@ -1,6 +1,8 @@ package URI::_userpass; use strict; +use warnings; + use URI::Escape qw(uri_unescape); sub user @@ -21,7 +23,7 @@ sub user $self->userinfo("$new$pass"); } } - return unless defined $info; + return undef unless defined $info; $info =~ s/:.*//; uri_unescape($info); } @@ -43,8 +45,8 @@ sub password $self->userinfo("$user:$new"); } } - return unless defined $info; - return unless $info =~ s/^[^:]*://; + return undef unless defined $info; + return undef unless $info =~ s/^[^:]*://; uri_unescape($info); } |