wq instead of wp? That's gotta be among the more amazing typos I've

[openssl.git] / test / tverify.com

diff --git a/test/tverify.com b/test/tverify.com
index f97e71478f011032fd9fa082f03318809cecb9d3..021d701d79a9a11fd9428e487225e5b9602b4c4a 100644 (file)
--- a/test/tverify.com
+++ b/test/tverify.com
@@ -8,19 +8,22 @@ $     copy/concatenate [-.certs]*.pem certs.tmp
 $
 $      old_f :=
 $ loop_certs:
-$      c := NO
+$      verify := NO
+$      more := YES
 $      certs :=
 $ loop_certs2:
 $      f = f$search("[-.certs]*.pem")
 $      if f .nes. "" .and. f .nes. old_f
 $      then
 $          certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
+$          verify := YES
 $          if f$length(certs) .lt. 180 then goto loop_certs2
-$          c := YES
+$      else
+$          more := NO
 $      endif
 $      certs = certs - " "
 $
-$      mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
-$      if c then goto loop_certs
+$      if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
+$      if more then goto loop_certs
 $
 $      delete certs.tmp;*