|
Server : LiteSpeed System : Linux srv45672493.ultasrv.net 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64 User : dewab7604 ( 1100) PHP Version : 8.1.33 Disable Function : NONE Directory : /usr/share/perl5/URI/ |
Upload File : |
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;