diff options
author | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-04-26 22:16:26 +0000 |
commit | 342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch) | |
tree | 79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/URI/file.pm | |
parent | be2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff) |
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/file.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/file.pm b/Master/tlpkg/tlperl/lib/URI/file.pm index 5a1e2b530be..d76ddf2b5e2 100644 --- a/Master/tlpkg/tlperl/lib/URI/file.pm +++ b/Master/tlpkg/tlperl/lib/URI/file.pm @@ -1,19 +1,18 @@ package URI::file; use strict; -use vars qw(@ISA $VERSION $DEFAULT_AUTHORITY %OS_CLASS); +use warnings; -require URI::_generic; -@ISA = qw(URI::_generic); -$VERSION = "4.21"; +use parent 'URI::_generic'; +our $VERSION = "4.21"; use URI::Escape qw(uri_unescape); -$DEFAULT_AUTHORITY = ""; +our $DEFAULT_AUTHORITY = ""; # Map from $^O values to implementation classes. The Unix # class is the default. -%OS_CLASS = ( +our %OS_CLASS = ( os2 => "OS2", mac => "Mac", MacOS => "Mac", |