diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-21 08:54:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-21 08:54:25 +0000 |
| commit | 51ce55291bc7d910929bee20dfbf29b2ba1a396f (patch) | |
| tree | 95b6d491ec55618d74b6dcea94dc765b1b77e990 /perl.c | |
| parent | 4f9115300b43ef6b5f7a27ee5faa266cbbca1243 (diff) | |
| download | perl-51ce55291bc7d910929bee20dfbf29b2ba1a396f.tar.gz | |
Add a flag G_WANT, as a mask for the bits G_SCALAR, G_ARRAY and G_VOID.
p4raw-id: //depot/perl@33021
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2650,7 +2650,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags) goto redo_body; } PL_stack_sp = PL_stack_base + oldmark; - if (flags & G_ARRAY) + if ((flags & G_WANT) == G_ARRAY) retval = 0; else { retval = 1; @@ -2749,7 +2749,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags) goto redo_body; } PL_stack_sp = PL_stack_base + oldmark; - if (flags & G_ARRAY) + if ((flags & G_WANT) == G_ARRAY) retval = 0; else { retval = 1; |