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