diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-14 16:15:09 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-05-14 16:15:09 +0000 |
| commit | a5871d1a83cd3d5c7292135cbb30a336a8552ab0 (patch) | |
| tree | e056f664b56c544259b77891801390c472109ed0 /vms/ext | |
| parent | 841a92052a6767bd088da257cef4b0db4ccd123d (diff) | |
| parent | 20408e3ccf502b6ce4033d8203710405ec9ef8f6 (diff) | |
| download | perl-a5871d1a83cd3d5c7292135cbb30a336a8552ab0.tar.gz | |
Integrate win32 branch into mainline
p4raw-id: //depot/perl@969
Diffstat (limited to 'vms/ext')
| -rw-r--r-- | vms/ext/Filespec.pm | 1 | ||||
| -rw-r--r-- | vms/ext/filespec.t | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm index b0b1414599..4a539c2701 100644 --- a/vms/ext/Filespec.pm +++ b/vms/ext/Filespec.pm @@ -266,6 +266,7 @@ sub fileify ($) { my($path) = @_; if (!$path) { return undef } + if ($path eq '/') { return 'sys$disk:[000000]'; } if ($path =~ /(.+)\.([^:>\]]*)$/) { $path = $1; if ($2 !~ /^dir(?:;1)?$/i) { return undef } diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 05644917b6..779396be73 100644 --- a/vms/ext/filespec.t +++ b/vms/ext/filespec.t @@ -96,6 +96,7 @@ some/where/... vmsify [.some.where...] .. vmsify [-] ../.. vmsify [--] .../ vmsify [...] +/ vmsify sys$disk:[000000] # Fileifying directory specs down:[the.garden.path] fileify down:[the.garden]path.dir;1 @@ -135,6 +136,7 @@ down:[the.garden.path...] unixpath /down/the/garden/path/.../ [.down.the.garden]path.dir unixpath down/the/garden/path/ down/the/garden/path vmspath [.down.the.garden.path] path vmspath [.path] +/ vmspath sys$disk:[000000] # Redundant characters in Unix paths //some/where//over/../the.rainbow vmsify some:[where]the.rainbow |