make uninitialized value warnings report opcode

p4raw-id: //depot/perl@4641

1 files changed, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index 2f902f88d7..c5f91b48a8 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -4371,6 +4371,13 @@ Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags)
     return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
 }
 
+#undef  Perl_report_uninit
+void
+Perl_report_uninit(pTHXo)
+{
+    ((CPerlObj*)pPerl)->Perl_report_uninit();
+}
+
 #undef  Perl_warn
 void
 Perl_warn(pTHXo_ const char* pat, ...)