Fix error reporting in Utils

Back-ported from:

From 6e46f6c5dbe1ca1145f68b9b77405590f71efcbc Mon Sep 17 00:00:00 2001
From: Steffen Ullrich <Steffen_Ullrich@genua.de>
Date: Mon, 22 Jul 2013 08:33:35 +0200
Subject: [PATCH] 1.953 - RT#87052 fix in Utils.pm
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Petr Písař <ppisar@redhat.com>

diff --git a/lib/IO/Socket/SSL/Utils.pm b/lib/IO/Socket/SSL/Utils.pm
index 6a71584..0542593 100644
--- a/lib/IO/Socket/SSL/Utils.pm
+++ b/lib/IO/Socket/SSL/Utils.pm
@@ -48,7 +48,7 @@ sub PEM_string2cert {
 sub PEM_cert2string {
     my $cert = shift;
     return Net::SSLeay::PEM_get_string_X509($cert)
-	or croak("cannot get string from cert");
+	|| croak("cannot get string from cert");
 }
 
 sub PEM_file2key {
@@ -84,7 +84,7 @@ sub PEM_string2key {
 sub PEM_key2string {
     my $key = shift;
     return Net::SSLeay::PEM_get_string_PrivateKey($key)
-	or croak("cannot get string from key");
+	|| croak("cannot get string from key");
 }
 
 sub CERT_free {
-- 
1.8.1.4