Na}{

File Content: `QNX.pm`

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;

Name	Size	Permission
Base.pm	1436 bytes	0644
FAT.pm	468 bytes	0644
Mac.pm	2469 bytes	0644
OS2.pm	532 bytes	0644
QNX.pm	320 bytes	0644
Unix.pm	1004 bytes	0644
Win32.pm	1739 bytes	0644

File Content: QNX.pm

File Content: `QNX.pm`