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: $ setup_dir:
$ subroutine $ subroutine
$ $
$ @[-.util]deltree [.tsa]*.* $ if f$search("tsa.dir") .nes ""
$ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;* $ then
$ delete tsa.dir;* $ @[-.util]deltree [.tsa]*.*
$ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) tsa.dir;*
$ delete tsa.dir;*
$ endif
$ $
$ create/dir [.tsa] $ create/dir [.tsa]
$ set default [.tsa] $ set default [.tsa]