patch to report warnings on bogus filehandles passed to flock(),

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

diff --git a/objXSUB.h b/objXSUB.h
index 035367d..3b20d76 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -3297,6 +3297,10 @@
 #define Perl_wait4pid          pPerl->Perl_wait4pid
 #undef  wait4pid
 #define wait4pid               Perl_wait4pid
+#undef  Perl_report_closed_fh
+#define Perl_report_closed_fh  pPerl->Perl_report_closed_fh
+#undef  report_closed_fh
+#define report_closed_fh       Perl_report_closed_fh
 #undef  Perl_report_uninit
 #define Perl_report_uninit     pPerl->Perl_report_uninit
 #undef  report_uninit