Skip Menu |
 

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

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

People
Owner: Nobody in particular
Requestors: gshank [...] cpan.org
Cc:
AdminCc:

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



Subject: Modification of a read-only value attempted
We're getting a solid failure in our Catalyst application with the most recent version of IO::Socket::SSl (1.969). 1.968 does not fail. I haven't had much luck making the test case smaller yet; I suspect it might be something that Catalyst is doing. Modification of a read-only value attempted at /home/gshank/CE/git/extlib/lib/perl5/IO/Socket/SSL.pm line 308. Compilation failed in require at lib/CE/Util/SSL.pm line 15. BEGIN failed--compilation aborted at lib/CE/Util/SSL.pm line 15. Compilation failed in require at lib/CE/Email/DeliveryAgent/SendGrid.pm line 33. BEGIN failed--compilation aborted at lib/CE/Email/DeliveryAgent/SendGrid.pm line 33. Compilation failed in require at lib/CE/Email.pm line 259. BEGIN failed--compilation aborted at lib/CE/Email.pm line 259. Compilation failed in require at lib/CE/Controller/User.pm line 9. BEGIN failed--compilation aborted at lib/CE/Controller/User.pm line 9. Compilation failed in require at /home/gshank/CE/git/extlib/lib/perl5/Catalyst/Utils.pm line 308. Compilation failed in require at /home/gshank/CE/git/extlib/lib/perl5/Module/Runtime.pm line 317.
Download (untitled) / with headers
text/plain 166b
I was able to boil it down: #!/usr/bin/env perl use strict; use warnings; use v5.10; use Module::Runtime 'use_module'; use_module($_) for qw{ IO::Socket::SSL };
Download (untitled) / with headers
text/plain 301b
Show quoted text
> use_module($_) for qw{ IO::Socket::SSL };
Thanks for reporting the bug. It's fixed in the just released version 1.970. The cause for the bug was the use of externally defined $_ in the while (<$fh>) statement, which croaked if $_ was read-only as in your code. It was fixed by using a local $_.


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.