summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/Heuristic.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/Heuristic.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/Heuristic.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/Heuristic.pm b/Master/tlpkg/tlperl/lib/URI/Heuristic.pm
index 71ad8dab8ff..89ec7bd5c33 100644
--- a/Master/tlpkg/tlperl/lib/URI/Heuristic.pm
+++ b/Master/tlpkg/tlperl/lib/URI/Heuristic.pm
@@ -87,13 +87,13 @@ modify it under the same terms as Perl itself.
=cut
use strict;
+use warnings;
-use vars qw(@EXPORT_OK $VERSION $MY_COUNTRY %LOCAL_GUESSING $DEBUG);
+use Exporter 'import';
+our @EXPORT_OK = qw(uf_uri uf_uristr uf_url uf_urlstr);
+our $VERSION = "4.20";
-require Exporter;
-*import = \&Exporter::import;
-@EXPORT_OK = qw(uf_uri uf_uristr uf_url uf_urlstr);
-$VERSION = "4.20";
+our ($MY_COUNTRY, $DEBUG);
sub MY_COUNTRY() {
for ($MY_COUNTRY) {
@@ -131,7 +131,7 @@ sub MY_COUNTRY() {
}
}
-%LOCAL_GUESSING =
+our %LOCAL_GUESSING =
(
'us' => [qw(www.ACME.gov www.ACME.mil)],
'gb' => [qw(www.ACME.co.uk www.ACME.org.uk www.ACME.ac.uk)],