/
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/QNX.pm
(337B)
package URI::file::QNX; use strict; use warnings; use parent 'URI::file::Unix'; our $VERSION = '5.09'; sub _file_extract_path { my($class, $path) = @_; # tidy path $path =~ s,(.)//+,$1/,g; # ^// is correct $path =~ s,(/\.)+/,/,g; $path = "./$path" if $path =~ m,^[^:/]+:,,; # look like "scheme:" $path; } 1;
Save
package URI::file::QNX; use strict; use warnings; use parent 'URI::file::Unix'; our $VERSION = '5.09'; sub _file_extract_path { my($class, $path) = @_; # tidy path $path =~ s,(.)//+,$1/,g; # ^// is correct $path =~ s,(/\.)+/,/,g; $path = "./$path" if $path =~ m,^[^:/]+:,,; # look like "scheme:" $path; } 1;