Skip Menu |
 

This queue is for tickets about the IO-Socket-SSL CPAN distribution.

Report information
The Basics
Id: 87052
Status: resolved
Priority: 0/
Queue: IO-Socket-SSL

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Attachments


Subject: [PATCH] return or precedence
Download (untitled) / with headers
text/plain 113b
return or die will skip the die. see https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802 See attached patch
Subject: IO-Socket-SSL-1.952-returnor.patch
diff -bu ./lib/IO/Socket/SSL/Utils.pm~ ./lib/IO/Socket/SSL/Utils.pm --- ./lib/IO/Socket/SSL/Utils.pm~ 2013-06-01 13:20:03.000000000 -0500 +++ ./lib/IO/Socket/SSL/Utils.pm 2013-07-19 09:52:23.731255111 -0500 @@ -48,7 +48,7 @@ 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_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 {
Download (untitled) / with headers
text/plain 257b
Am Fr 19. Jul 2013, 11:01:07, rurban@x-ray.at schrieb: Show quoted text
> return or die will skip the die. see > https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802 > > See attached patch
Thanks for the patch. I applied it and released it as version 1.953. Steffen


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.