2N/A#!/usr/bin/env perl
2N/A
2N/A# Digest->new() had an exploitable eval
2N/A
2N/Ause strict;
2N/Ause warnings;
2N/A
2N/Ause Test::More tests => 1;
2N/A
2N/Ause Digest;
2N/A
2N/A$LOL::PWNED = 0;
2N/Aeval { Digest->new(q[MD;5;$LOL::PWNED = 42]) };
2N/Ais $LOL::PWNED, 0;
2N/A