1#!/usr/bin/env perl 2 3# Digest->new() had an exploitable eval 4 5use strict; 6use warnings; 7 8use Test::More tests => 1; 9 10use Digest; 11 12$LOL::PWNED = 0; 13eval { Digest->new(q[MD;5;$LOL::PWNED = 42]) }; 14is $LOL::PWNED, 0; 15