summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/IRI.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/IRI.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/IRI.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/IRI.pm b/Master/tlpkg/tlperl/lib/URI/IRI.pm
index 39336fce5ac..8ce51912cc8 100644
--- a/Master/tlpkg/tlperl/lib/URI/IRI.pm
+++ b/Master/tlpkg/tlperl/lib/URI/IRI.pm
@@ -3,6 +3,7 @@ package URI::IRI;
# Experimental
use strict;
+use warnings;
use URI ();
use overload '""' => sub { shift->as_string };
@@ -27,9 +28,9 @@ sub as_string {
return $self->{uri}->as_iri;
}
+our $AUTOLOAD;
sub AUTOLOAD
{
- use vars qw($AUTOLOAD);
my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
# We create the function here so that it will not need to be