diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/IRI.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/IRI.pm | 3 |
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 |