There are cases when there are no files left to verify. Make sure to

[openssl.git] / test / tverify.com

diff --git a/test/tverify.com b/test/tverify.com
index f97e71478f011032fd9fa082f03318809cecb9d3..2060184d1efc4e3ba9c27159efbe3c003ea2d382 100644 (file)
--- a/test/tverify.com
+++ b/test/tverify.com
@@ -15,12 +15,15 @@ $   f = f$search("[-.certs]*.pem")
 $      if f .nes. "" .and. f .nes. old_f
 $      then
 $          certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
-$          if f$length(certs) .lt. 180 then goto loop_certs2
 $          c := YES
+$          if f$length(certs) .lt. 180 then goto loop_certs2
 $      endif
 $      certs = certs - " "
 $
-$      mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
-$      if c then goto loop_certs
+$      if c
+$      then
+$          mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
+$          goto loop_certs
+$      endif
 $
 $      delete certs.tmp;*