From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 10 May 2013 12:38:19 +0000 (+0200)
Subject: Correct the error in the fix for cop_stashpv on v5.17.1 and later.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=697012cd88aeaccae5f96e1efa8feed731ed53bf;p=p5sagit%2FDevel-Size.git

Correct the error in the fix for cop_stashpv on v5.17.1 and later.

Remember to go back and test on the various blead versions *after* making the
fix for the problems found on the various stable versions.
---

diff --git a/CHANGES b/CHANGES
index 62e318b..28d82b3 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,5 +1,8 @@
 Revision history for Perl extension Devel::Size.
 
+0.78_52 2013-05-10 nicholas
+ * Fix the bug in the previous fix. Oops :-)
+
 0.78_51 2013-05-10 nicholas
  * v5.17.1 and later handle CopSTASH differently under ithreads
 
diff --git a/Size.xs b/Size.xs
index 3b214ab..05e540a 100644
--- a/Size.xs
+++ b/Size.xs
@@ -518,7 +518,7 @@ op_size(pTHX_ const OP * const baseop, struct state *st)
 #endif
 #ifdef USE_ITHREADS
           check_new_and_strlen(st, basecop->cop_file);
-#ifdef PERL_VERSION < 17 || (PERL_VERSION == 17 && PERL_SUBVERSION == 0)
+#if PERL_VERSION < 17 || (PERL_VERSION == 17 && PERL_SUBVERSION == 0)
 	  /* This pointer is owned by the COP, and freed with it.  */
           check_new_and_strlen(st, basecop->cop_stashpv);
 #else