summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/file
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/file')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/file/Base.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/URI/file/FAT.pm6
-rw-r--r--Master/tlpkg/tlperl/lib/URI/file/Mac.pm7
-rw-r--r--Master/tlpkg/tlperl/lib/URI/file/OS2.pm6
-rw-r--r--Master/tlpkg/tlperl/lib/URI/file/QNX.pm6
-rw-r--r--Master/tlpkg/tlperl/lib/URI/file/Unix.pm7
-rw-r--r--Master/tlpkg/tlperl/lib/URI/file/Win32.pm7
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