diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm index acf571783a..5fd36a78a2 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/URI/_userpass.pm @@ -5,7 +5,7 @@ use warnings; use URI::Escape qw(uri_unescape); -our $VERSION = '5.10'; +our $VERSION = '5.27'; sub user { @@ -39,8 +39,8 @@ sub password my $user = defined($info) ? $info : ""; $user =~ s/:.*//; - if (!defined($new) && !length($user)) { - $self->userinfo(undef); + if (!defined($new)) { + $self->userinfo(length $user ? $user : undef); } else { $new = "" unless defined($new); $new =~ s/%/%25/g; |