generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Only try to remove the tsa.dir subdirectory if it actually exists.

Browse Source
This commit is contained in:
Richard Levitte 2006-03-25 10:24:22 +00:00
parent db98bbc114
commit a61114c38b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/testtsa.com
View 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]