implement C<goto &func> and other fixes (via private mail)

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

diff --git a/objpp.h b/objpp.h
index b1753c8..039ac4f 100644 (file)
--- a/objpp.h
+++ b/objpp.h
@@ -299,6 +299,8 @@
 #define do_report_used    CPerlObj::do_report_used
 #undef  docatch
 #define docatch           CPerlObj::docatch
+#undef  dofile
+#define dofile            CPerlObj::Perl_dofile
 #undef  dowantarray
 #define dowantarray       CPerlObj::Perl_dowantarray
 #undef  dump
@@ -1168,6 +1170,8 @@
 #define save_freeop       CPerlObj::Perl_save_freeop
 #undef  save_freepv
 #define save_freepv       CPerlObj::Perl_save_freepv
+#undef  save_generic_svref
+#define save_generic_svref CPerlObj::Perl_save_generic_svref
 #undef  save_gp
 #define save_gp           CPerlObj::Perl_save_gp
 #undef  save_hash