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