diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/URI/file/OS2.pm')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/URI/file/OS2.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/URI/file/OS2.pm b/Master/tlpkg/tlperl.straw/lib/URI/file/OS2.pm new file mode 100755 index 00000000000..ad0a78ede52 --- /dev/null +++ b/Master/tlpkg/tlperl.straw/lib/URI/file/OS2.pm @@ -0,0 +1,28 @@ +package URI::file::OS2; + +require URI::file::Win32; +@ISA=qw(URI::file::Win32); + +# The Win32 version translates k:/foo to file://k:/foo (?!) +# We add an empty host + +sub _file_extract_authority +{ + my $class = shift; + return $1 if $_[0] =~ s,^\\\\([^\\]+),,; # UNC + return $1 if $_[0] =~ s,^//([^/]+),,; # UNC too? + + if ($_[0] =~ m#^[a-zA-Z]{1,2}:#) { # allow for ab: drives + return ""; + } + return; +} + +sub file { + my $p = &URI::file::Win32::file; + return unless defined $p; + $p =~ s,\\,/,g; + $p; +} + +1; |