From c2d7d9b5c41230ec958cb59b14c6513c092a00dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sun, 20 Apr 1997 16:32:18 -0700
Subject: [PATCH] minor fixes
Rev: bin/smartlink:1.7
Rev: src/modules/_Crypto/testsuite.in:1.3
---
bin/smartlink | 3 ++-
src/modules/_Crypto/testsuite.in | 4 ++++
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/bin/smartlink b/bin/smartlink
index 029def2687..f6671d7238 100755
--- a/bin/smartlink
+++ b/bin/smartlink
@@ -32,7 +32,8 @@ RPATH="$RPATH:${LD_LIBRARY_PATH-}"
OLDIFS="$IFS"
IFS=:
-set -- $RPATH
+set dummy $RPATH
+shift
IFS="$OLDIFS"
while test x$1 = x -a x$# != x0; do
diff --git a/src/modules/_Crypto/testsuite.in b/src/modules/_Crypto/testsuite.in
index 51fda6e50f..b165925f3e 100644
--- a/src/modules/_Crypto/testsuite.in
+++ b/src/modules/_Crypto/testsuite.in
@@ -17,6 +17,9 @@ test_true([[functionp(Crypto.des_parity)]])
test_true([[functionp(Crypto.hex_to_string)]])
test_true([[functionp(Crypto.string_to_hex)]])
+cond( [[ master()->resolv("Gmp")->mpz ]],
+[[
+
// Pike programs
test_true([[programp(Crypto.des3)]])
test_true([[programp(Crypto.des3_cbc)]])
@@ -134,3 +137,4 @@ test_true([[objectp(Crypto.sha())]])
test_eq([[Crypto.sha()->update("abc")->digest()]],
[[Crypto.hex_to_string("a9993e364706816aba3e25717850c26c9cd0d89d")]])
+]])
\ No newline at end of file
--
GitLab