| Subject: | Requiring Digest::Perl::MD5 smashes the topic |
| Date: | Mon, 12 May 2014 12:33:49 -0500 |
| To: | "bug-Digest-Perl-MD5 [...] rt.cpan.org" <bug-Digest-Perl-MD5 [...] rt.cpan.org> |
| From: | Jonathan Cast <JCast [...] emortgagelogic.com> |
To reproduce:
perl -MData::Dumper -e '$_ = q{Hello, world}; warn $_; require Digest::Perl::MD5; warn $_;'
Hello, world at -e line 1.
Warning: something's wrong at -e line 1.
I believe the issue is that this construct in the gen_code function:
while(<DATA>) {
needs to be preceded by
local $_;
for maximum safety.
Tested on Perl 5.16.3.
Jonathan Cast