/usr/share/perl5/URI/_userpass.pm is in liburi-perl 1.73-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | package URI::_userpass;
use strict;
use warnings;
use URI::Escape qw(uri_unescape);
our $VERSION = '1.73';
$VERSION = eval $VERSION;
sub user
{
my $self = shift;
my $info = $self->userinfo;
if (@_) {
my $new = shift;
my $pass = defined($info) ? $info : "";
$pass =~ s/^[^:]*//;
if (!defined($new) && !length($pass)) {
$self->userinfo(undef);
} else {
$new = "" unless defined($new);
$new =~ s/%/%25/g;
$new =~ s/:/%3A/g;
$self->userinfo("$new$pass");
}
}
return undef unless defined $info;
$info =~ s/:.*//;
uri_unescape($info);
}
sub password
{
my $self = shift;
my $info = $self->userinfo;
if (@_) {
my $new = shift;
my $user = defined($info) ? $info : "";
$user =~ s/:.*//;
if (!defined($new) && !length($user)) {
$self->userinfo(undef);
} else {
$new = "" unless defined($new);
$new =~ s/%/%25/g;
$self->userinfo("$user:$new");
}
}
return undef unless defined $info;
return undef unless $info =~ s/^[^:]*://;
uri_unescape($info);
}
1;
|