Bug #106247 for Net-SSLeay: AULOLOAD subroutine goes into loop

Tue Aug 04 09:44:52 2015 Meir.Chanan [...] comverse.com - Ticket created

Subject:	AULOLOAD subroutine goes into loop
Date:	Tue, 4 Aug 2015 13:44:36 +0000
To:	"bug-Net-SSLeay [...] rt.cpan.org" <bug-Net-SSLeay [...] rt.cpan.org>
From:	Chanan Meir <Meir.Chanan [...] comverse.com>

Hello, I'm having the problem with Net::SSLeay. The subroutine AUTOLOAD is going to the loop since it can not find function constant(). Where this function is supposed to be defined ? sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() # XS function. If a constant is not found then control is passed # to the AUTOLOAD in AutoLoader. my $constname; print "AUTOLOAD = " . $AUTOLOAD . "\n"; ($constname = $AUTOLOAD) =~ s/.*:://; print "constname = " . $constname . "\n"; croak "&Blah::constant not defined" if $constname eq 'constant'; my $val = constant($constname); print "val = " . $val . "\n"; print $! . "\n"; if ($! != 0) { if ($! =~ /((Invalid)|(not valid))/i || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } else { croak "Your vendor has not defined SSLeay macro $constname"; } } eval "sub $AUTOLOAD { $val }"; goto &$AUTOLOAD; } I'm using Net::SSLeay-1.68 with Perl 5.20.2 built for i686-linux The OS platform is RHEL 5.11 x86_64. Thanks in advance Kind Regards, Meir Chanan System Software Platform Comverse Office: +972 3 645(2031) Mobile: +972 50 6973443 Email : Meir.Chanan@Comverse.com<mailto:Meir.Chanan@Comverse.com> Show quoted text

________________________________ "This e-mail message may contain confidential, commercial or privileged information that constitutes proprietary information of Comverse Inc. or its subsidiaries. If you are not the intended recipient of this message, you are hereby notified that any review, use or distribution of this information is absolutely prohibited and we request that you delete all copies and contact us by e-mailing to: security@comverse.com. Thank You."

Wed Aug 05 07:12:54 2015 mikem [...] airspayce.com - Correspondence added

Subject:	Re: [rt.cpan.org #106247] AULOLOAD subroutine goes into loop
Date:	Wed, 05 Aug 2015 21:12:41 +1000
To:	bug-Net-SSLeay [...] rt.cpan.org
From:	Mike McCauley <mikem [...] airspayce.com>

Hi, Can you provide some code to demonstrate the problem? Cheers. On Tuesday, August 04, 2015 09:44:54 AM you wrote: Show quoted text

> Tue Aug 04 09:44:52 2015: Request 106247 was acted upon. > Transaction: Ticket created by Meir.Chanan@comverse.com > Queue: Net-SSLeay > Subject: AULOLOAD subroutine goes into loop > Broken in: (no value) > Severity: (no value) > Owner: Nobody > Requestors: Meir.Chanan@comverse.com > Status: new > Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=106247 > > > > Hello, > > I'm having the problem with Net::SSLeay. The subroutine AUTOLOAD is going to > the loop since it can not find function constant(). Where this function is > supposed to be defined ? > > sub AUTOLOAD { > # This AUTOLOAD is used to 'autoload' constants from the constant() > # XS function. If a constant is not found then control is passed > # to the AUTOLOAD in AutoLoader. > > my $constname; > print "AUTOLOAD = " . $AUTOLOAD . "\n"; > ($constname = $AUTOLOAD) =~ s/.*:://; > print "constname = " . $constname . "\n"; > croak "&Blah::constant not defined" if $constname eq 'constant'; > my $val = constant($constname); > print "val = " . $val . "\n"; > print $! . "\n"; > if ($! != 0) { > if ($! =~ /((Invalid)|(not valid))/i || $!{EINVAL}) { > $AutoLoader::AUTOLOAD = $AUTOLOAD; > goto &AutoLoader::AUTOLOAD; > } > else { > croak "Your vendor has not defined SSLeay macro $constname"; > } > } > eval "sub $AUTOLOAD { $val }"; > goto &$AUTOLOAD; > } > > I'm using Net::SSLeay-1.68 with Perl 5.20.2 built for i686-linux > The OS platform is RHEL 5.11 x86_64. > > Thanks in advance > > Kind Regards, > > Meir Chanan > System Software Platform > Comverse > Office: +972 3 645(2031) > Mobile: +972 50 6973443 > Email : Meir.Chanan@Comverse.com<mailto:Meir.Chanan@Comverse.com> > > > ________________________________ > "This e-mail message may contain confidential, commercial or privileged > information that constitutes proprietary information of Comverse Inc. or > its subsidiaries. If you are not the intended recipient of this message, > you are hereby notified that any review, use or distribution of this > information is absolutely prohibited and we request that you delete all > copies and contact us by e-mailing to: security@comverse.com. Thank You."

-- 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

Wed Aug 05 07:12:56 2015 The RT System itself - Status changed from 'new' to 'open'

Wed Aug 05 08:06:25 2015 Meir.Chanan [...] comverse.com - Correspondence added

Subject:	RE: [rt.cpan.org #106247] AULOLOAD subroutine goes into loop
Date:	Wed, 5 Aug 2015 12:06:05 +0000
To:	"bug-Net-SSLeay [...] rt.cpan.org" <bug-Net-SSLeay [...] rt.cpan.org>
From:	Chanan Meir <Meir.Chanan [...] comverse.com>

Hi Mike, Thanks for quick response, but we already found the source of the problem. We are using perl compiled for 32 bit on the 64 bit system where openssl 32 bit was missing. Anyway , it would be good idea to prevent loop in such situation as I suggested in previous thread. Here is the code that can demonstrate the problem: ============================================= #!/bin/perl use Net::SSLeay; Net::SSLeay::load_error_strings(); Net::SSLeay::SSLeay_add_ssl_algorithms(); Net::SSLeay::randomize("", time ^ $$); exit; ============================================== Again, thanks a lot for your efforts meir Show quoted text

-----Original Message----- From: Mike McCauley via RT [mailto:bug-Net-SSLeay@rt.cpan.org] Sent: Wednesday, August 05, 2015 2:13 PM To: Chanan Meir Subject: Re: [rt.cpan.org #106247] AULOLOAD subroutine goes into loop <URL: http://cp.mcafee.com/d/FZsS76Qm6nxMVB4sqejtPqqbdQSkkkTzqqbdQSknQTzqqbdSknxPP9J6Xyr3z3wUsrl-kuIjS6M1iVDUQ_BPqVDUQ_BPp0wXWdDT-LOqtSjhOU_RXBQQT1Tcc6zCUWVEVVqWdAklrTsVkffGhBrwqrhdICXYUy-yYqenxPb1KVIDeqR4IOc-IJIe00U2pma_f0Wl5zZbs3ykA3ArK9I3zspBXbr0K01bN-rso0FrUDY01dInjodwLQzh0qmUPWOSMU02q80chKUCMedbFEw40C5gM5gM81NEwESgzlKsEuq82dvEq89gDkQg7RGIrsKrbfYM > Hi, Can you provide some code to demonstrate the problem? Cheers. On Tuesday, August 04, 2015 09:44:54 AM you wrote:

> Tue Aug 04 09:44:52 2015: Request 106247 was acted upon. > Transaction: Ticket created by Meir.Chanan@comverse.com > Queue: Net-SSLeay > Subject: AULOLOAD subroutine goes into loop > Broken in: (no value) > Severity: (no value) > Owner: Nobody > Requestors: Meir.Chanan@comverse.com > Status: new > Ticket <URL: > http://cp.mcafee.com/d/k-Kr3x0i6xESyMOYe7cEzzhOrKrjhpKCOyyCYrjhpKCOy-C > YrjhpKOyYeupdETsjosos73zqLOzRyuMS0anc_6DYKrnc_6DYKr847vhI-_R-jjKOqen7- > LsKCCUeVxwQsT7nd7fbnhIyyHuXDaxVZicHs3jqpJATvD4nQnzhOYepodTdAVPmEBChDRB > JxM070jaNnVU7iEIvFrwsiAwsztNdwsrzcLpro5M09ufPrz05bv4_w09JyWr1I5-Aq83iT > 6vmmS700jh01ydT4S1NFtd40w4MG60G610ed456O4qJPB3Ph0hHZ3h1a4WCy0-JlzrBPqF > NaFt34RK8f > > > > Hello, > > I'm having the problem with Net::SSLeay. The subroutine AUTOLOAD is > going to the loop since it can not find function constant(). Where > this function is supposed to be defined ? > > sub AUTOLOAD { > # This AUTOLOAD is used to 'autoload' constants from the constant() > # XS function. If a constant is not found then control is passed > # to the AUTOLOAD in AutoLoader. > > my $constname; > print "AUTOLOAD = " . $AUTOLOAD . "\n"; > ($constname = $AUTOLOAD) =~ s/.*:://; > print "constname = " . $constname . "\n"; > croak "&Blah::constant not defined" if $constname eq 'constant'; > my $val = constant($constname); > print "val = " . $val . "\n"; > print $! . "\n"; > if ($! != 0) { > if ($! =~ /((Invalid)|(not valid))/i || $!{EINVAL}) { > $AutoLoader::AUTOLOAD = $AUTOLOAD; > goto &AutoLoader::AUTOLOAD; > } > else { > croak "Your vendor has not defined SSLeay macro $constname"; > } > } > eval "sub $AUTOLOAD { $val }"; > goto &$AUTOLOAD; > } > > I'm using Net::SSLeay-1.68 with Perl 5.20.2 built for i686-linux The > OS platform is RHEL 5.11 x86_64. > > Thanks in advance > > Kind Regards, > > Meir Chanan > System Software Platform > Comverse > Office: +972 3 645(2031) > Mobile: +972 50 6973443 > Email : Meir.Chanan@Comverse.com<mailto:Meir.Chanan@Comverse.com> > > > ________________________________ > "This e-mail message may contain confidential, commercial or > privileged information that constitutes proprietary information of > Comverse Inc. or its subsidiaries. If you are not the intended > recipient of this message, you are hereby notified that any review, > use or distribution of this information is absolutely prohibited and > we request that you delete all copies and contact us by e-mailing to: security@comverse.com. Thank You."

-- Mike McCauley VK4AMM mikem@airspayce.com Airspayce Pty Ltd 9 Bulbul Place Currumbin Waters QLD 4223 Australia http://cp.mcafee.com/d/1jWVIe6hEidEIcL3xPa8UQsCXCQQmrFIEEFL6QQmrFIELFL6QQmrIEL3DCjqdT4S7671MUSHYEZoDIdw2BPfNF_bCRPfNF_bCO11TQrfLZvAQXICzBN_HTbFFK3Kood7dNRPhPORQr8EGTKVOEuvkzaT0QSOrpdTVN5Z5UQsL3Cm3tPo0bphEJFqTYKrzcLpro5M09ufPrz05bv4_w09JyWr1I5-Aq83iT6vmmS700jh01ydT4S1NFtd40w4MG60G610ed456O4qJPB3Ph0hHZ3h1a4WCy0-JlzrBPo4sAi8aDTF3S Phone +61 7 5598-7474

________________________________ “This e-mail message may contain confidential, commercial or privileged information that constitutes proprietary information of Comverse Inc. or its subsidiaries. If you are not the intended recipient of this message, you are hereby notified that any review, use or distribution of this information is absolutely prohibited and we request that you delete all copies and contact us by e-mailing to: security@comverse.com. Thank You.”