There are cases when there are no files left to verify. Make sure to
authorRichard Levitte <levitte@openssl.org>
Mon, 21 Mar 2005 13:52:12 +0000 (13:52 +0000)
committerRichard Levitte <levitte@openssl.org>
Mon, 21 Mar 2005 13:52:12 +0000 (13:52 +0000)
handle that properly.

test/tverify.com

index f97e71478f011032fd9fa082f03318809cecb9d3..2060184d1efc4e3ba9c27159efbe3c003ea2d382 100644 (file)
@@ -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;*