From a61114c38b5dd8bd207235ce94ec495f18c7d6a3 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Sat, 25 Mar 2006 10:24:22 +0000
Subject: [PATCH] Only try to remove the tsa.dir subdirectory if it actually
 exists.

---
 test/testtsa.com | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/test/testtsa.com b/test/testtsa.com
index 846e8c162d..b6bd8c67b0 100644
--- a/test/testtsa.com
+++ b/test/testtsa.com
@@ -18,9 +18,12 @@ $
 $ setup_dir:
 $	subroutine
 $
-$		@[-.util]deltree [.tsa]*.*
-$ 		set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;*
-$ 		delete tsa.dir;*
+$		if f$search("tsa.dir") .nes ""
+$		then
+$			@[-.util]deltree [.tsa]*.*
+$ 			set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;*
+$ 			delete tsa.dir;*
+$		endif
 $
 $		create/dir [.tsa]
 $		set default [.tsa]
-- 
2.25.1