Skip Menu |
 

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

Report information
The Basics
Id: 106247
Status: open
Priority: 0/
Queue: Net-SSLeay

People
Owner: Nobody in particular
Requestors: Meir.Chanan [...] comverse.com
Cc:
AdminCc:

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



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>
Download (untitled) / with headers
text/plain 1.7k
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."
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>
Download (untitled) / with headers
text/plain 2.5k
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
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>
Download (untitled) / with headers
text/plain 4.9k
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.”


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.