summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/WithBase.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/WithBase.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/WithBase.pm11
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/WithBase.pm b/Master/tlpkg/tlperl/lib/URI/WithBase.pm
index 4300a2a60ae..943b7b533a7 100644
--- a/Master/tlpkg/tlperl/lib/URI/WithBase.pm
+++ b/Master/tlpkg/tlperl/lib/URI/WithBase.pm
@@ -1,10 +1,12 @@
package URI::WithBase;
use strict;
-use vars qw($AUTOLOAD $VERSION);
+use warnings;
+
use URI;
+use Scalar::Util 'blessed';
-$VERSION = "2.20";
+our $VERSION = "2.20";
use overload '""' => "as_string", fallback => 1;
@@ -14,7 +16,7 @@ sub new
{
my($class, $uri, $base) = @_;
my $ibase = $base;
- if ($base && ref($base) && UNIVERSAL::isa($base, __PACKAGE__)) {
+ if ($base && blessed($base) && $base->isa(__PACKAGE__)) {
$base = $base->abs;
$ibase = $base->[0];
}
@@ -38,10 +40,11 @@ sub _init
sub eq
{
my($self, $other) = @_;
- $other = $other->[0] if UNIVERSAL::isa($other, __PACKAGE__);
+ $other = $other->[0] if blessed($other) and $other->isa(__PACKAGE__);
$self->[0]->eq($other);
}
+our $AUTOLOAD;
sub AUTOLOAD
{
my $self = shift;