diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1998-03-26 10:11:50 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 16:03:37 +0000 |
| commit | 17f28c40fa08b585b95d4a2531b1cd975d11e986 (patch) | |
| tree | a3848d6befdc55f7cc1a326e0b4b19b31ad09869 /vms/ext/Filespec.pm | |
| parent | ec2ab091f034a27dfbd7d815fad4e3e670b743e9 (diff) | |
| download | perl-17f28c40fa08b585b95d4a2531b1cd975d11e986.tar.gz | |
Next wave of _63 VMS patches
p4raw-id: //depot/perl@854
Diffstat (limited to 'vms/ext/Filespec.pm')
| -rw-r--r-- | vms/ext/Filespec.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm index db3283c571..b0b1414599 100644 --- a/vms/ext/Filespec.pm +++ b/vms/ext/Filespec.pm @@ -12,7 +12,7 @@ VMS::Filespec - convert between VMS and Unix file specification syntax =head1 SYNOPSIS use VMS::Filespec; -$fullspec = rmsexpand('[.VMS]file.specification'); +$fullspec = rmsexpand('[.VMS]file.specification'[, 'default:[file.spec]']); $vmsspec = vmsify('/my/Unix/file/specification'); $unixspec = unixify('my:[VMS]file.specification'); $path = pathify('my:[VMS.or.Unix.directory]specification.dir'); @@ -65,9 +65,11 @@ The routines provided are: =head2 rmsexpand Uses the RMS $PARSE and $SEARCH services to expand the input -specification to its fully qualified form. (If the file does -not exist, the input specification is expanded as much as -possible.) If an error occurs, returns C<undef> and sets C<$!> +specification to its fully qualified form, except that a null type +or version is not added unless it was present in either the original +file specification or the default specification passed to C<rmsexpand>. +(If the file does not exist, the input specification is expanded as much +as possible.) If an error occurs, returns C<undef> and sets C<$!> and C<$^E>. =head2 vmsify |