diff options
| author | John Malmberg <wb8tyw@qsl.net> | 2015-01-15 21:28:34 -0600 |
|---|---|---|
| committer | Daniel Stenberg <daniel@haxx.se> | 2015-01-22 17:00:25 +0100 |
| commit | 731e6a6662757bb1a290c4e093d4a31dc3d1bc0f (patch) | |
| tree | 4fc32e7ea0b803d4906c5ee913bf9c620456edaa | |
| parent | eb748f159ab9cd426da065d7c1f1a2b3423854b7 (diff) | |
openvms: Handle openssl/0.8.9zb version parsing
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.
| -rw-r--r-- | 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 960c24392..b7e608386 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 - |