[catagits/Gitalist.git] / local-lib5 / lib / perl5 / URI / file / 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;
Commit	Line	Data
3fea05b9	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;