summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-01-21 04:28:08 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-01-21 04:28:08 +0000
commit69282e910994b718c7eedc8f550888058a4e93ff (patch)
tree7b03bc1b24a50d77983c616709e61e9238cee94a /objXSUB.h
parent2decb4fb82e001e3c9671c57b61232c651a9c22c (diff)
downloadperl-69282e910994b718c7eedc8f550888058a4e93ff.tar.gz
patch to report warnings on bogus filehandles passed to flock(),
more consistent warnings, from Greg Bacon <gbacon@itsc.uah.edu> (slightly modified) p4raw-id: //depot/perl@4830
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h4
1 files changed, 4 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 035367d417..3b20d76dfd 100644
--- 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