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