From 2f8edad0d37e91319b6ba10b3745327ea49c179b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 21 Jan 2008 11:50:52 +0000 Subject: Give G_VOID, G_SCALAR and G_ARRAY the same numeric values as OPf_WANT_VOID, OPf_WANT_SCALAR and OPf_WANT_LIST. p4raw-id: //depot/perl@33025 --- perl.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 7dc6d14a2e..907f9cf8e4 100644 --- a/perl.c +++ b/perl.c @@ -2578,6 +2578,11 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags) ENTER; SAVETMPS; } + if (!(flags & G_WANT)) { + /* Backwards compatibility - as G_SCALAR was 0, it could be omitted. + */ + flags |= G_SCALAR; + } Zero(&myop, 1, LOGOP); myop.op_next = NULL; -- cgit v1.2.1