Encode the G_* to OPf_WANT_* transform, the reverse of OP_GIMME(), in

a macro OP_GIMME_REVERSE() [so that it could be changed].

p4raw-id: //depot/perl@33020

1 files changed, 5 insertions, 0 deletions

diff --git a/op.h b/op.h
index 7262afe967..fa1230d544 100644
--- a/op.h
+++ b/op.h
@@ -70,6 +70,11 @@
 	 ((op)->op_flags & OPf_WANT) == OPf_WANT_LIST   ? G_ARRAY   : \
 	 dfl)
 
+#define OP_GIMME_REVERSE(flags)			\
+	((flags & G_VOID) ? OPf_WANT_VOID :	\
+	(flags & G_ARRAY) ? OPf_WANT_LIST :	\
+			    OPf_WANT_SCALAR)
+
 /*
 =head1 "Gimme" Values