components/perl512/patches/CVE-2011-3597.patch
changeset 858 8571d5518444
parent 783 e8713db88509
child 884 cd5a2da081ff
equal deleted inserted replaced
857:2d92df98cbef 858:8571d5518444
   296 +use Digest;
   296 +use Digest;
   297 +
   297 +
   298 +$LOL::PWNED = 0;
   298 +$LOL::PWNED = 0;
   299 +eval { Digest->new(q[MD;5;$LOL::PWNED = 42]) };
   299 +eval { Digest->new(q[MD;5;$LOL::PWNED = 42]) };
   300 +is $LOL::PWNED, 0;
   300 +is $LOL::PWNED, 0;
       
   301 --- perl-5.12.4/patchlevel.h	Mo jun  4 16:58:05 2012
       
   302 +++ perl-5.12.4/patchlevel.h	Mo jun  4 16:58:23 2012
       
   303 @@ -132,6 +132,7 @@
       
   304  #endif
       
   305  	PERL_GIT_UNPUSHED_COMMITS    	/* do not remove this line */
       
   306  	,"7111771 Problem with utility/perl"
       
   307 +	,"7125218 Problem with utility/perl"
       
   308  	,NULL
       
   309  };
       
   310