Let's remove the grep in void context warning.

p4raw-id: //depot/perl@32888

1 files changed, 1 insertions, 3 deletions

diff --git a/op.c b/op.c
index 212ecddc99..a732aa42d7 100644
--- a/op.c
+++ b/op.c
@@ -970,7 +970,6 @@ Perl_scalarvoid(pTHX_ OP *o)
     case OP_ANONLIST:
     case OP_ANONHASH:
     case OP_SORT:
-    case OP_GREPWHILE:
     case OP_REVERSE:
     case OP_RANGE:
     case OP_FLIP:
@@ -1011,8 +1010,7 @@ Perl_scalarvoid(pTHX_ OP *o)
       func_ops:
 	if (!(o->op_private & (OPpLVAL_INTRO|OPpOUR_INTRO)))
 	    /* Otherwise it's "Useless use of grep iterator" */
-	    useless = (o->op_type == OP_GREPWHILE) ? "grep"
-	                                           : OP_DESC(o);
+	    useless = OP_DESC(o);
 	break;
 
     case OP_NOT: