This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Digest to CPAN version 1.17
[perl5.git] / cpan / Digest / t / security.t
1 #!/usr/bin/env perl
2
3 # Digest->new() had an exploitable eval
4
5 use strict;
6 use warnings;
7
8 use Test::More tests => 1;
9
10 use Digest;
11
12 $LOL::PWNED = 0;
13 eval { Digest->new(q[MD;5;$LOL::PWNED = 42]) };
14 is $LOL::PWNED, 0;