diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/URL.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/URL.pm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/URL.pm b/Master/tlpkg/tlperl/lib/URI/URL.pm index 81bf47d3af1..867ac6a9d5d 100644 --- a/Master/tlpkg/tlperl/lib/URI/URL.pm +++ b/Master/tlpkg/tlperl/lib/URI/URL.pm @@ -1,19 +1,17 @@ package URI::URL; -require URI::WithBase; -@ISA=qw(URI::WithBase); - use strict; -use vars qw(@EXPORT $VERSION); +use warnings; + +use parent 'URI::WithBase'; -$VERSION = "5.04"; +our $VERSION = "5.04"; # Provide as much as possible of the old URI::URL interface for backwards # compatibility... -require Exporter; -*import = \&Exporter::import; -@EXPORT = qw(url); +use Exporter 'import'; +our @EXPORT = qw(url); # Easy to use constructor sub url ($;$) { URI::URL->new(@_); } @@ -105,7 +103,7 @@ sub eparams { my $self = shift; my @p = $self->path_segments; - return unless ref($p[-1]); + return undef unless ref($p[-1]); @p = @{$p[-1]}; shift @p; join(";", @p); @@ -144,7 +142,7 @@ sub query { Carp::croak("$mess (you must call equery)"); } } - # Now it should be safe to unescape the string without loosing + # Now it should be safe to unescape the string without losing # information return uri_unescape($old); } |