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
RT for rt.cpan.org