Add a flag G_WANT, as a mask for the bits G_SCALAR, G_ARRAY and G_VOID.

p4raw-id: //depot/perl@33021

1 files changed, 1 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index 4dbc19718e..641fb66ee9 100644
--- a/cop.h
+++ b/cop.h
@@ -740,6 +740,7 @@ L<perlcall>.
 #define G_SCALAR	0
 #define G_ARRAY		1
 #define G_VOID		128	/* skip this bit when adding flags below */
+#define G_WANT		(128|1)
 
 /* extra flags for Perl_call_* routines */
 #define G_DISCARD	2	/* Call FREETMPS.