/
usr
/
local
/
share
/
perl5
/
URI
/
file
/
/usr/local/share/perl5/URI/file
mkdir
upload
Name
Size
Mode
Actions
Base.pm
1501
0444
edit
dl
rm
FAT.pm
523
0444
edit
dl
rm
Mac.pm
2511
0444
edit
dl
rm
OS2.pm
587
0444
edit
dl
rm
QNX.pm
363
0444
edit
dl
rm
Unix.pm
1048
0444
edit
dl
rm
Win32.pm
1783
0444
edit
dl
rm
Edit:
/usr/local/share/perl5/URI/file/OS2.pm
(587B)
package URI::file::OS2; use strict; use warnings; use parent 'URI::file::Win32'; our $VERSION = '1.71'; $VERSION = eval $VERSION; # 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;
Save
cmd:
run