This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a flag G_WANT, as a mask for the bits G_SCALAR, G_ARRAY and G_VOID.
[perl5.git] / cop.h
diff --git a/cop.h b/cop.h
index 4dbc197..641fb66 100644 (file)
--- 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.