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