use Exporter (); # use #5
-our $VERSION = "0.85";
+our $VERSION = "0.86";
our @ISA = qw(Exporter);
our @EXPORT_OK = qw( set_style set_style_standard add_callback
concise_subref concise_cv concise_main
for ("mapwhile", "mapstart", "grepwhile", "grepstart");
}
$priv{$_}{128} = '+1' for qw "caller wantarray";
+@{$priv{coreargs}}{1,2} = ('DREF1','DREF2');
our %hints; # used to display each COP's op_hints values
/* Private for OP_CALLER and OP_WANTARRAY */
#define OPpOFFBYONE 128 /* Treat caller(1) as caller(2) */
+/* Private for OP_COREARGS */
+/* These must not conflict with OPpDONT_INIT_GV. See pp.c:S_rv2gv. */
+#define OPpCOREARGS_DEREF1 1 /* Arg 1 is a handle constructor */
+#define OPpCOREARGS_DEREF2 2 /* Arg 2 is a handle constructor */
+
struct op {
BASEOP
};