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 (file)
--- 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