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