/
usr
/
share
/
perl5
/
URI
/
file
/
/usr/share/perl5/URI/file
mkdir
upload
Name
Size
Mode
Actions
Base.pm
1485
0644
edit
dl
rm
FAT.pm
497
0644
edit
dl
rm
Mac.pm
2485
0644
edit
dl
rm
OS2.pm
561
0644
edit
dl
rm
QNX.pm
337
0644
edit
dl
rm
Unix.pm
1022
0644
edit
dl
rm
Win32.pm
1757
0644
edit
dl
rm
Edit:
/usr/share/perl5/URI/file/OS2.pm
(561B)
package URI::file::OS2; use strict; use warnings; use parent 'URI::file::Win32'; our $VERSION = '5.10'; # 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