diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1998-03-12 11:02:29 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-16 15:55:28 +0000 |
| commit | 09b7f37c58c6da6f4965b846b64eab7d9a205663 (patch) | |
| tree | 0175e00c54b302fe0ffcfa25f9c82103d3196460 /vms/ext/filespec.t | |
| parent | a887ff1142f02c0c19143d1511194864ae5eafab (diff) | |
| download | perl-09b7f37c58c6da6f4965b846b64eab7d9a205663.tar.gz | |
VMS updates (direct)
[Needed manual tweaks on vms/config.vms since it clashed with other
patches. I may have got it wrong.]
p4raw-id: //depot/perl@817
Diffstat (limited to 'vms/ext/filespec.t')
| -rw-r--r-- | vms/ext/filespec.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 6201a42dc6..1b31f06dff 100644 --- a/vms/ext/filespec.t +++ b/vms/ext/filespec.t @@ -10,7 +10,7 @@ foreach (<DATA>) { next if /^\s*$/; push(@tests,$_); } -print '1..',scalar(@tests)+3,"\n"; +print '1..',scalar(@tests)+5,"\n"; foreach $test (@tests) { ($arg,$func,$expect) = split(/\t+/,$test); @@ -53,6 +53,11 @@ else { rmsexpand('from.here','cant:[get.there];2'),"|\n"; } +# Make sure we're using redirected mkdir, which strips trailing '/', since +# the CRTL's mkdir can't handle this. +print +(mkdir('testdir/',0777) ? 'ok ' : 'not ok '),++$idx,"\n"; +print +(rmdir('testdir/') ? 'ok ' : 'not ok '),++$idx,"\n"; + __DATA__ # Basic VMS to Unix filespecs |