Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
cpan
/
Digest
/
t
/
security.t
blob: 5cba122b22c3a2b2565811a2f69618cb1122bbaa [
file
] [
log
] [
blame
]
#!/usr/bin/env perl
# Digest->new() had an exploitable eval
use
strict
;
use
warnings
;
use
Test
::
More
tests
=>
1
;
use
Digest
;
$LOL
::
PWNED
=
0
;
eval
{
Digest
->
new
(
q
[
MD
;
5
;
$LOL
::
PWNED
=
42
])
};
is
$LOL
::
PWNED
,
0
;