Only try to remove the tsa.dir subdirectory if it actually exists.
authorRichard Levitte <levitte@openssl.org>
Sat, 25 Mar 2006 10:24:22 +0000 (10:24 +0000)
committerRichard Levitte <levitte@openssl.org>
Sat, 25 Mar 2006 10:24:22 +0000 (10:24 +0000)
test/testtsa.com

index 846e8c1..b6bd8c6 100644 (file)
@@ -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]