BLACKSITE


	: 216.73.216.249
	: 157.173.108.86 / pdclassessgnr.in
	: Linux server.madnetech.com 4.18.0-553.117.1.el8_10.x86_64 #1 SMP Sun Apr 5 23:14:32 EDT 2026 x86_64

: /usr/share/perl5/URI/file/

files >> //usr/share/perl5/URI/file/QNX.pm

 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;