diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/file')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/Base.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/FAT.pm | 6 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/Mac.pm | 7 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/OS2.pm | 6 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/QNX.pm | 6 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/Unix.pm | 7 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/Win32.pm | 7 |
7 files changed, 25 insertions, 16 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/file/Base.pm b/Master/tlpkg/tlperl/lib/URI/file/Base.pm index 941793b0f93..bba1c9dbf6a 100644 --- a/Master/tlpkg/tlperl/lib/URI/file/Base.pm +++ b/Master/tlpkg/tlperl/lib/URI/file/Base.pm @@ -1,6 +1,8 @@ package URI::file::Base; use strict; +use warnings; + use URI::Escape qw(); sub new diff --git a/Master/tlpkg/tlperl/lib/URI/file/FAT.pm b/Master/tlpkg/tlperl/lib/URI/file/FAT.pm index 328169bd0bf..212d1abd1a2 100644 --- a/Master/tlpkg/tlperl/lib/URI/file/FAT.pm +++ b/Master/tlpkg/tlperl/lib/URI/file/FAT.pm @@ -1,7 +1,9 @@ package URI::file::FAT; -require URI::file::Win32; -@ISA=qw(URI::file::Win32); +use strict; +use warnings; + +use parent 'URI::file::Win32'; sub fix_path { diff --git a/Master/tlpkg/tlperl/lib/URI/file/Mac.pm b/Master/tlpkg/tlperl/lib/URI/file/Mac.pm index 6cfa78192e0..1cf08f5d4ad 100644 --- a/Master/tlpkg/tlperl/lib/URI/file/Mac.pm +++ b/Master/tlpkg/tlperl/lib/URI/file/Mac.pm @@ -1,9 +1,10 @@ package URI::file::Mac; -require URI::file::Base; -@ISA=qw(URI::file::Base); - use strict; +use warnings; + +use parent 'URI::file::Base'; + use URI::Escape qw(uri_unescape); diff --git a/Master/tlpkg/tlperl/lib/URI/file/OS2.pm b/Master/tlpkg/tlperl/lib/URI/file/OS2.pm index ad0a78ede52..a301468a68f 100644 --- a/Master/tlpkg/tlperl/lib/URI/file/OS2.pm +++ b/Master/tlpkg/tlperl/lib/URI/file/OS2.pm @@ -1,7 +1,9 @@ package URI::file::OS2; -require URI::file::Win32; -@ISA=qw(URI::file::Win32); +use strict; +use warnings; + +use parent 'URI::file::Win32'; # The Win32 version translates k:/foo to file://k:/foo (?!) # We add an empty host diff --git a/Master/tlpkg/tlperl/lib/URI/file/QNX.pm b/Master/tlpkg/tlperl/lib/URI/file/QNX.pm index 93a4983d2bb..ccdb1813598 100644 --- a/Master/tlpkg/tlperl/lib/URI/file/QNX.pm +++ b/Master/tlpkg/tlperl/lib/URI/file/QNX.pm @@ -1,9 +1,9 @@ package URI::file::QNX; -require URI::file::Unix; -@ISA=qw(URI::file::Unix); - use strict; +use warnings; + +use parent 'URI::file::Unix'; sub _file_extract_path { diff --git a/Master/tlpkg/tlperl/lib/URI/file/Unix.pm b/Master/tlpkg/tlperl/lib/URI/file/Unix.pm index 5f8aaae9050..4315c3ea8b8 100644 --- a/Master/tlpkg/tlperl/lib/URI/file/Unix.pm +++ b/Master/tlpkg/tlperl/lib/URI/file/Unix.pm @@ -1,9 +1,10 @@ package URI::file::Unix; -require URI::file::Base; -@ISA=qw(URI::file::Base); - use strict; +use warnings; + +use parent 'URI::file::Base'; + use URI::Escape qw(uri_unescape); sub _file_extract_path diff --git a/Master/tlpkg/tlperl/lib/URI/file/Win32.pm b/Master/tlpkg/tlperl/lib/URI/file/Win32.pm index 04593863a92..7762d2a910b 100644 --- a/Master/tlpkg/tlperl/lib/URI/file/Win32.pm +++ b/Master/tlpkg/tlperl/lib/URI/file/Win32.pm @@ -1,9 +1,10 @@ package URI::file::Win32; -require URI::file::Base; -@ISA=qw(URI::file::Base); - use strict; +use warnings; + +use parent 'URI::file::Base'; + use URI::Escape qw(uri_unescape); sub _file_extract_authority |