docatch_body() declaration mismatch

p4raw-id: //depot/perl@3411

diff --git a/pp_ctl.c b/pp_ctl.c
index 621024a..e279bca 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -29,7 +29,7 @@
 #define CALLOP this->*PL_op
 #else
 #define CALLOP *PL_op
-static void *docatch_body _((void *o));
+static void *docatch_body _((valist args));
 static OP *docatch _((OP *o));
 static OP *dofindlabel _((OP *o, char *label, OP **opstack, OP **oplimit));
 static void doparseform _((SV *sv));