diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/file/QNX.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/file/QNX.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/file/QNX.pm b/Master/tlpkg/tlperl/lib/URI/file/QNX.pm new file mode 100644 index 00000000000..93a4983d2bb --- /dev/null +++ b/Master/tlpkg/tlperl/lib/URI/file/QNX.pm @@ -0,0 +1,18 @@ +package URI::file::QNX; + +require URI::file::Unix; +@ISA=qw(URI::file::Unix); + +use strict; + +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; |