projects
/
pkg-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Debian lenny version packages
[pkg-perl]
/
deb-src
/
liburi-perl
/
liburi-perl-1.35.dfsg.1
/
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;