curl-library
[PATCH] openvms: Handle openssl/0.8.9zb version parsing
From: John Malmberg <wb8tyw_at_qsl.net>
Date: Thu, 15 Jan 2015 21:28:34 -0600
Date: Thu, 15 Jan 2015 21:28:34 -0600
packages/vms/gnv_link_curl.com was assuming only a single letter suffix
in the openssl version. That assumption has been fixed for 7.40.
--- packages/vms/gnv_link_curl.com | 13 +++++++++++-- 1 files changed, 11 insertions(+), 2 deletions(-) diff --git a/packages/vms/gnv_link_curl.com b/packages/vms/gnv_link_curl.com index 960c243..b7e6083 100644 --- a/packages/vms/gnv_link_curl.com +++ b/packages/vms/gnv_link_curl.com @@ -173,9 +173,17 @@ $ full_version = f$element(1, " ", hp_ssl_version) $ ver_maj = f$element(0, ".", full_version) $ ver_min = f$element(1, ".", full_version) $ ver_patch = f$element(2, ".", full_version) +$! ! ver_patch is typically both a number and some letters $ ver_patch_len = f$length(ver_patch) -$ ver_patchnum = f$extract(0, ver_patch_len - 1, ver_patch) -$ ver_patchltr = f$extract(ver_patch_len - 1, 1, ver_patch) +$ ver_patchltr = "" +$ver_patch_loop: +$ ver_patchltr_c = f$extract(ver_patch_len - 1, 1, ver_patch) +$ if ver_patchltr_c .les. "9" then goto ver_patch_loop_end +$ ver_patchltr = ver_patchltr_c + ver_patchltr +$ ver_patch_len = ver_patch_len - 1 +$ goto ver_patch_loop +$ver_patch_loop_end: +$ ver_patchnum = ver_patch - ver_patchltr $ if 'ver_maj' .ge. 0 $ then $ if 'ver_min' .ge. 9 @@ -186,6 +194,7 @@ $ if ver_patchltr .ges. "w" then use_hp_ssl = 1 $ endif $ endif $ endif +$set nover $ if use_hp_ssl .eq. 0 $ then $ write sys$output - -- 1.7.9 --------------070901050302090105040608 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Disposition: inline LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t LS0tLS0tLS0tLQpMaXN0IGFkbWluOiBodHRwOi8vY29vbC5oYXh4LnNlL2xpc3QvbGlzdGluZm8v Y3VybC1saWJyYXJ5CkV0aXF1ZXR0ZTogIGh0dHA6Ly9jdXJsLmhheHguc2UvbWFpbC9ldGlxdWV0 dGUuaHRtbA== --------------070901050302090105040608--Received on 2001-09-17