prototype() didn't warn when used in void context.

p4raw-id: //depot/perl@18020

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index c589fcefd4..4d1f7a25c6 100644
--- a/op.c
+++ b/op.c
@@ -725,6 +725,7 @@ Perl_scalarvoid(pTHX_ OP *o)
     case OP_GGRNAM:
     case OP_GGRGID:
     case OP_GETLOGIN:
+    case OP_PROTOTYPE:
       func_ops:
 	if (!(o->op_private & (OPpLVAL_INTRO|OPpOUR_INTRO)))
 	    useless = OP_DESC(o);