local-lib5/lib/perl5/URI/file/QNX.pm

   1 package URI::file::QNX;
   2
   3 require URI::file::Unix;
   4 @ISA=qw(URI::file::Unix);
   5
   6 use strict;
   7
   8 sub _file_extract_path
   9 {
  10     my($class, $path) = @_;
  11     # tidy path
  12     $path =~ s,(.)//+,$1/,g; # ^// is correct
  13     $path =~ s,(/\.)+/,/,g;
  14     $path = "./$path" if $path =~ m,^[^:/]+:,,; # look like "scheme:"
  15     $path;
  16 }
  17
  18 1;