Commit 731e6a66 authored by John Malmberg's avatar John Malmberg Committed by Daniel Stenberg
Browse files

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.
parent eb748f15

packages/vms/gnv_link_curl.com

+11 −2
Original line number Original line Diff line number Diff line
@@ -173,9 +173,17 @@ $ full_version = f$element(1, " ", hp_ssl_version) 
$       ver_maj = f$element(0, ".", full_version)

$       ver_maj = f$element(0, ".", full_version)

$       ver_min = f$element(1, ".", full_version)

$       ver_min = f$element(1, ".", full_version)

$       ver_patch = f$element(2, ".", 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_patch_len = f$length(ver_patch)

$       ver_patchnum = f$extract(0, ver_patch_len - 1, ver_patch)

$       ver_patchltr = ""

$       ver_patchltr = f$extract(ver_patch_len - 1, 1, ver_patch)

$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

$       if 'ver_maj' .ge. 0

$       then

$       then

$           if 'ver_min' .ge. 9

$           if 'ver_min' .ge. 9
@@ -186,6 +194,7 @@ $ if ver_patchltr .ges. "w" then use_hp_ssl = 1 
$               endif

$               endif

$           endif

$           endif

$       endif

$       endif

$set nover

$       if use_hp_ssl .eq. 0

$       if use_hp_ssl .eq. 0

$       then

$       then

$           write sys$output -

$           write sys$output -