diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-07-02 15:18:41 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-07 17:45:52 +0000 |
| commit | 1f47e8e2e6e01cf4845f0f3f0f0c7524761ffa80 (patch) | |
| tree | d302430354d07e16ddf40f2a034ab55b14889d8b /t/base | |
| parent | cae6c631be0cfed1f388d3116e456beb58714d6e (diff) | |
| download | perl-1f47e8e2e6e01cf4845f0f3f0f0c7524761ffa80.tar.gz | |
applied new parts of suggested patch
Message-id: <01JD3M8W1VXS000S5G@mail.newman.upenn.edu>
Subject: [PATCH 5.005_57] Consolidated VMS patch
p4raw-id: //depot/perl@3650
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/rs.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index 07cc8fd447..021d699e2e 100755 --- a/t/base/rs.t +++ b/t/base/rs.t @@ -122,8 +122,7 @@ if ($^O eq 'VMS') { if ($bar eq "z\n") {print "ok 14\n";} else {print "not ok 14\n";} close TESTFILE; - unlink "./foo.bar"; - unlink "./foo.com"; + 1 while unlink qw(foo.bar foo.com foo.fdl); } else { # Nobody else does this at the moment (well, maybe OS/390, but they can # put their own tests in) so we just punt |