From 9165b237ad8fae18b36d4d40d6e2ccfde7b136c7 Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Sat, 25 Jul 2015 01:06:42 +0000 Subject: URI-1.69 --- lib/URI/file/QNX.pm | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 lib/URI/file/QNX.pm (limited to 'lib/URI/file/QNX.pm') diff --git a/lib/URI/file/QNX.pm b/lib/URI/file/QNX.pm new file mode 100644 index 0000000..1d725e4 --- /dev/null +++ b/lib/URI/file/QNX.pm @@ -0,0 +1,20 @@ +package URI::file::QNX; + +use strict; +use warnings; + +use parent 'URI::file::Unix'; + +our $VERSION = "1.69"; + +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; -- cgit v1.2.1