28 lines
425 B
Perl
28 lines
425 B
Perl
|
package URI::http;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
our $VERSION = '1.76';
|
||
|
|
|
||
|
|
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;
|