fix small eval"" memory leaks under USE_ITHREADS

[p5sagit/p5-mst-13.2.git] / objXSUB.h

diff --git a/objXSUB.h b/objXSUB.h
index 97e9ba4..25536e9 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -1345,6 +1345,10 @@
 #define Perl_save_generic_svref        pPerl->Perl_save_generic_svref
 #undef  save_generic_svref
 #define save_generic_svref     Perl_save_generic_svref
+#undef  Perl_save_generic_pvref
+#define Perl_save_generic_pvref        pPerl->Perl_save_generic_pvref
+#undef  save_generic_pvref
+#define save_generic_pvref     Perl_save_generic_pvref
 #undef  Perl_save_gp
 #define Perl_save_gp           pPerl->Perl_save_gp
 #undef  save_gp