From: Charles Bailey <bailey@newman.upenn.edu>
Date: Wed, 24 May 2000 02:19:55 +0000 (+0000)
Subject: Check for existence of file before trying to delete
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8713643e844ed8f4c79356f71e306822511dbfeb;p=p5sagit%2Fp5-mst-13.2.git

Check for existence of file before trying to delete

p4raw-id: //depot/vmsperl@6112
---

diff --git a/vms/test.com b/vms/test.com
index 5bb999d..1039525 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -41,7 +41,7 @@ $   if p2.nes."" then dbg  = "dbg"
 $   if p2.nes."" then ndbg = "ndbg"
 $!
 $!  Pick up a copy of perl to use for the tests
-$   Delete/Log/NoConfirm Perl.;*
+$   If F$Search("Perl.").nes."" Then Delete/Log/NoConfirm Perl.;*
 $   Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl.
 $
 $!  Make the environment look a little friendlier to tests which assume Unix