X7ROOT File Manager
Current Path:
/usr/share/perl5/URI
usr
/
share
/
perl5
/
URI
/
??
..
??
Escape.pm
(6.9 KB)
??
Heuristic.pm
(6.37 KB)
??
IRI.pm
(820 B)
??
QueryParam.pm
(4.77 KB)
??
Split.pm
(2.32 KB)
??
URL.pm
(5.36 KB)
??
WithBase.pm
(3.77 KB)
??
_foreign.pm
(133 B)
??
_generic.pm
(5.71 KB)
??
_idna.pm
(2.06 KB)
??
_ldap.pm
(3.2 KB)
??
_login.pm
(257 B)
??
_punycode.pm
(5.52 KB)
??
_query.pm
(2.5 KB)
??
_segment.pm
(442 B)
??
_server.pm
(3.66 KB)
??
_userpass.pm
(1.04 KB)
??
data.pm
(3.34 KB)
??
file
??
file.pm
(9.53 KB)
??
ftp.pm
(1.06 KB)
??
gopher.pm
(2.4 KB)
??
http.pm
(451 B)
??
https.pm
(170 B)
??
ldap.pm
(2.88 KB)
??
ldapi.pm
(467 B)
??
ldaps.pm
(170 B)
??
mailto.pm
(1.27 KB)
??
mms.pm
(151 B)
??
news.pm
(1.45 KB)
??
nntp.pm
(153 B)
??
pop.pm
(1.2 KB)
??
rlogin.pm
(155 B)
??
rsync.pm
(233 B)
??
rtsp.pm
(151 B)
??
rtspu.pm
(152 B)
??
sftp.pm
(124 B)
??
sip.pm
(1.69 KB)
??
sips.pm
(169 B)
??
snews.pm
(198 B)
??
ssh.pm
(201 B)
??
telnet.pm
(154 B)
??
tn3270.pm
(154 B)
??
urn
??
urn.pm
(2.15 KB)
Editing: http.pm
package URI::http; use strict; use warnings; our $VERSION = '1.73'; $VERSION = eval $VERSION; 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;
Upload File
Create Folder