This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Say goodbye to SAVECOPSTASH
authorFather Chrysostomos <sprout@cpan.org>
Mon, 4 Jun 2012 23:57:23 +0000 (16:57 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 5 Jun 2012 01:14:53 +0000 (18:14 -0700)
This is undocumented and unused.

scope.h

diff --git a/scope.h b/scope.h
index 591cf75..74ebed9 100644 (file)
--- a/scope.h
+++ b/scope.h
@@ -235,13 +235,12 @@ scope has the given name. Name must be a literal string.
 #define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER)
 
 #ifdef USE_ITHREADS
-#  define SAVECOPSTASH(c)      SAVEIV((c)->cop_stashoff)
 #  define SAVECOPSTASH_FREE(c) SAVEIV((c)->cop_stashoff)
 #  define SAVECOPFILE(c)       SAVEPPTR(CopFILE(c))
 #  define SAVECOPFILE_FREE(c)  SAVESHAREDPV(CopFILE(c))
 #else
-#  define SAVECOPSTASH(c)      SAVESPTR(CopSTASH(c))
-#  define SAVECOPSTASH_FREE(c) SAVECOPSTASH(c) /* XXX not refcounted */
+#  /* XXX not refcounted */
+#  define SAVECOPSTASH_FREE(c) SAVESPTR(CopSTASH(c))
 #  define SAVECOPFILE(c)       SAVESPTR(CopFILEGV(c))
 #  define SAVECOPFILE_FREE(c)  SAVEGENERICSV(CopFILEGV(c))
 #endif