Skip Menu |
 

This queue is for tickets about the Net-SSLeay CPAN distribution.

Report information
The Basics
Id: 93961
Status: resolved
Priority: 0/
Queue: Net-SSLeay

People
Owner: MIKEM [...] cpan.org
Requestors: peter.heuchert [...] de.ibm.com
Cc:
AdminCc:

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



Subject: blenght on undef / split on undef
Date: Tue, 18 Mar 2014 11:55:24 +0100
To: bug-Net-SSLeay [...] rt.cpan.org
From: Peter Heuchert <peter.heuchert [...] de.ibm.com>
Download (untitled)
image/png 8k
(untitled)
Download SSLeay.pm
text/x-perl 49.6k

Message body is not shown because sender requested not to inline it.

Subject: Re: [rt.cpan.org #93961] blenght on undef / split on undef
Date: Tue, 18 Mar 2014 21:09:14 +1000
To: bug-Net-SSLeay [...] rt.cpan.org
From: Mike McCauley <mikem [...] airspayce.com>
Download (untitled) / with headers
text/plain 2.4k
Hello Peter, thanks for the report and the patch. It has now been added to SVN commit 399. Cheers. On Tuesday, March 18, 2014 06:55:55 AM you wrote: Show quoted text
> Tue Mar 18 06:55:53 2014: Request 93961 was acted upon. > Transaction: Ticket created by peter.heuchert@de.ibm.com > Queue: Net-SSLeay > Subject: blenght on undef / split on undef > Broken in: (no value) > Severity: (no value) > Owner: Nobody > Requestors: peter.heuchert@de.ibm.com > Status: new > Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=93961 > > > > Hello, > > I got some error messages about undefined strings used with length or split > in Net::SSLeay version 1.58 > > I fixed it adding some checks for undef: > > [0]perlcomp@aixcomp53:/home/perlcomp/perl5 $ diff > ./lib/perl5/aix-thread-multi/Net/SSLeay.pm.orig > ./lib/perl5/aix-thread-multi/Net/SSLeay.pm > 415,416c415,416 > < eval 'use bytes; sub blength ($) { length $_[0] }'; > < $@ and eval ' sub blength ($) { length $_[0] }' ; > --- >
> > eval 'use bytes; sub blength ($) { defined $_[0] ? length $_[0] : 0 }'; > > $@ and eval ' sub blength ($) { defined $_[0] ? length $_[0] : 0 }' ;
> > 1290c1290 > < return ($page, $response, > --- >
> > return ($page, $response, defined $headers ?
> > 1293c1293 > < ) > --- >
> > ) : ()
> > Fixed version: > > > > Can you drop me a note if you include the fix into a newer version or if you > reject it? > > Thank you > > > > Mit freundlichen Grüßen / Kind regards > > Peter Heuchert > > AIX Systemprogrammer > Global Technology Services > 7949 > > ---------------------------------------------------------------------------- > -- > > Phone: > > +49-6131-84-2342 > > IBM Deutschland > > [IMAGE] > > Mobile: > > +49-171-5561923 > > Hechtsheimer Str. 2 > > E-Mail: > > peter.heuchert@de.ibm.com > > 55131 Mainz > > Germany > > ---------------------------------------------------------------------------- > -- > > IBM Deutschland GmbH / Vorsitzender des Aufsichtsrats: Martin Jetter > Geschäftsführung: Martina Koederitz (Vorsitzende), Reinhard Reschke, Dieter > Scholz, Gregor Pillen, Christian Noll, Ivo Koerner > Sitz der Gesellschaft: Ehningen / Registergericht: Amtsgericht Stuttgart, > HRB 14562 / WEEE-Reg.-Nr. DE 99369940
-- Mike McCauley VK4AMM mikem@airspayce.com Airspayce Pty Ltd 9 Bulbul Place Currumbin Waters QLD 4223 Australia http://www.airspayce.com Phone +61 7 5598-7474 Fax +61 7 5598-7070


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.