diff options
Diffstat (limited to 'src/lib/libssl/test/tsid.com')
-rw-r--r-- | src/lib/libssl/test/tsid.com | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/lib/libssl/test/tsid.com b/src/lib/libssl/test/tsid.com index abd1d4d737..267ace1135 100644 --- a/src/lib/libssl/test/tsid.com +++ b/src/lib/libssl/test/tsid.com | |||
@@ -1,7 +1,9 @@ | |||
1 | $! TSID.COM -- Tests sid keys | 1 | $! TSID.COM -- Tests sid keys |
2 | $ | 2 | $ |
3 | $ __arch := VAX | 3 | $ __arch := VAX |
4 | $ if f$getsyi("cpu") .ge. 128 then __arch := AXP | 4 | $ if f$getsyi("cpu") .ge. 128 then - |
5 | __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") | ||
6 | $ if __arch .eqs. "" then __arch := UNK | ||
5 | $ exe_dir := sys$disk:[-.'__arch'.exe.apps] | 7 | $ exe_dir := sys$disk:[-.'__arch'.exe.apps] |
6 | $ | 8 | $ |
7 | $ cmd := mcr 'exe_dir'openssl sess_id | 9 | $ cmd := mcr 'exe_dir'openssl sess_id |