diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
| commit | 3282be229999dc36c197b264d63063a18d136331 (patch) | |
| tree | 98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/URI/http.pm | |
| parent | cfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff) | |
| download | xxv-3282be229999dc36c197b264d63063a18d136331.tar.gz xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2 | |
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/URI/http.pm')
| -rw-r--r-- | lib/URI/http.pm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/lib/URI/http.pm b/lib/URI/http.pm deleted file mode 100644 index cb69822..0000000 --- a/lib/URI/http.pm +++ /dev/null @@ -1,25 +0,0 @@ -package URI::http; - -require URI::_server; -@ISA=qw(URI::_server); - -use strict; - -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; |
