Server IP : 68.65.122.142 / Your IP : 18.227.183.215
Web Server : LiteSpeed
System : Linux server167.web-hosting.com 4.18.0-513.18.1.lve.el8.x86_64 #1 SMP Thu Feb 22 12:55:50 UTC 2024 x86_64
User : glenirhm ( 1318)
PHP Version : 7.4.33
Disable Function : NONE
MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON
Directory (0755) : /usr/share/locale/bo/../cpp/../cpp/../../perl5/Module/../URI/file/

[ Home ]	[ C0mmand ]	[ Upload File ]

Current File : //usr/share/locale/bo/../cpp/../cpp/../../perl5/Module/../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;