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 (file)
--- 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 (file)
--- 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