/
usr
/
share
/
perl5
/
URI
/
/usr/share/perl5/URI
mkdir
upload
Name
Size
Mode
Actions
file/
-
0755
rm
urn/
-
0755
rm
data.pm
3390
0644
edit
dl
rm
Escape.pm
7061
0644
edit
dl
rm
file.pm
9761
0644
edit
dl
rm
ftp.pm
1056
0644
edit
dl
rm
gopher.pm
2428
0644
edit
dl
rm
Heuristic.pm
6527
0644
edit
dl
rm
http.pm
425
0644
edit
dl
rm
https.pm
144
0644
edit
dl
rm
IRI.pm
794
0644
edit
dl
rm
ldap.pm
2924
0644
edit
dl
rm
ldapi.pm
440
0644
edit
dl
rm
ldaps.pm
144
0644
edit
dl
rm
mailto.pm
1657
0644
edit
dl
rm
mms.pm
125
0644
edit
dl
rm
news.pm
1454
0644
edit
dl
rm
nntp.pm
127
0644
edit
dl
rm
nntps.pm
144
0644
edit
dl
rm
pop.pm
1207
0644
edit
dl
rm
QueryParam.pm
4861
0644
edit
dl
rm
rlogin.pm
129
0644
edit
dl
rm
rsync.pm
207
0644
edit
dl
rm
rtsp.pm
125
0644
edit
dl
rm
rtspu.pm
126
0644
edit
dl
rm
sftp.pm
98
0644
edit
dl
rm
sip.pm
1695
0644
edit
dl
rm
sips.pm
143
0644
edit
dl
rm
snews.pm
172
0644
edit
dl
rm
Split.pm
2353
0644
edit
dl
rm
ssh.pm
175
0644
edit
dl
rm
telnet.pm
128
0644
edit
dl
rm
tn3270.pm
128
0644
edit
dl
rm
URL.pm
5487
0644
edit
dl
rm
urn.pm
2175
0644
edit
dl
rm
WithBase.pm
3862
0644
edit
dl
rm
_foreign.pm
107
0644
edit
dl
rm
_generic.pm
5822
0644
edit
dl
rm
_idna.pm
2079
0644
edit
dl
rm
_ldap.pm
3249
0644
edit
dl
rm
_login.pm
231
0644
edit
dl
rm
_punycode.pm
5622
0644
edit
dl
rm
_query.pm
2531
0644
edit
dl
rm
_segment.pm
416
0644
edit
dl
rm
_server.pm
3724
0644
edit
dl
rm
_userpass.pm
1034
0644
edit
dl
rm
Edit:
/usr/share/perl5/URI/http.pm
(425B)
package URI::http; use strict; use warnings; our $VERSION = '5.10'; use parent 'URI::_server'; sub default_port { 80 } sub canonical { my $self = shift; my $other = $self->SUPER::canonical; my $slash_path = defined($other->authority) && !length($other->path) && !defined($other->query); if ($slash_path) { $other = $other->clone if $other == $self; $other->path("/"); } $other; } 1;
Save
cmd:
run