X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=test%2F04-pkey.t;fp=test%2F04-pkey.t;h=b4897e9ea796fa5a53b07ae4d21f75ae2aecec1c;hb=9a4548c819c63b41358072d645454ad7ea56cd2b;hp=f5e654da54b74db07c7a40a7731eb4c2867e811d;hpb=f26da81ae7386f3ee66ad5fc3fafbc1c7f079e80;p=openssl-gost%2Fengine.git

diff --git a/test/04-pkey.t b/test/04-pkey.t
index f5e654d..b4897e9 100644
--- a/test/04-pkey.t
+++ b/test/04-pkey.t
@@ -315,7 +315,7 @@ MIGgMBcGCCqFAwcBAQECMAsGCSqFAwcBAgECAwOBhAAEgYCPdAER26Ym73DSUXBamTLJcntdV3oZ7RRx
         # Bob: derive
         system("openssl pkeyutl -derive -inkey bob.prv -keyform PEM -peerkey alice.pub.der -peerform DER -pkeyopt ukmhex:0100000000000000 -out secret_b.bin");
         like(`openssl dgst -sha256 -r secret_b.bin`, qr/^$secrethash/, "Compute shared key:$id:Bob");
-        if ($malice ne "") {
+        if (defined $malice && $malice ne "") {
             # Malice: negative test -- this PEM is in the small subgroup
             open $F,">",'malice.pub';
             print $F $malice;