summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/URL.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/URL.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/URL.pm18
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);
}