# HG changeset patch
# User Vladimir Marek <Vladimir.Marek@oracle.com>
# Date 1338877124 25200
# Node ID 6e4cb6b2ecfe4c790d0a516478876e8e8914f798
# Parent  e77c012d95e96914ca6fe39a65512125d7bb13db
7174201 cr 7125218 did not change patchlevel.h

diff -r e77c012d95e9 -r 6e4cb6b2ecfe components/perl512/patches/CVE-2011-3597.patch
--- a/components/perl512/patches/CVE-2011-3597.patch	Mon Jun 04 23:18:18 2012 -0700
+++ b/components/perl512/patches/CVE-2011-3597.patch	Mon Jun 04 23:18:44 2012 -0700
@@ -298,3 +298,13 @@
 +$LOL::PWNED = 0;
 +eval { Digest->new(q[MD;5;$LOL::PWNED = 42]) };
 +is $LOL::PWNED, 0;
+--- perl-5.12.4/patchlevel.h	Mo jun  4 16:58:05 2012
++++ perl-5.12.4/patchlevel.h	Mo jun  4 16:58:23 2012
+@@ -132,6 +132,7 @@
+ #endif
+ 	PERL_GIT_UNPUSHED_COMMITS    	/* do not remove this line */
+ 	,"7111771 Problem with utility/perl"
++	,"7125218 Problem with utility/perl"
+ 	,NULL
+ };
+