diff options
| author | Gisle Aas <gisle@aas.no> | 2001-04-04 13:17:29 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-05 22:54:17 +0000 |
| commit | 986b19de108d7d28065c88eb6f0409b17efc8482 (patch) | |
| tree | 7df968c83c6d37bba503b142bc7df52130315208 /pp_ctl.c | |
| parent | 60d9c7be9863c530d823c4f8da8d90bb057dce39 (diff) | |
| download | perl-986b19de108d7d28065c88eb6f0409b17efc8482.tar.gz | |
Propagate calling context for do '...'
Message-ID: <lrg0fo827q.fsf@caliper.ActiveState.com>
p4raw-id: //depot/perl@9579
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3022,7 +3022,7 @@ PP(pp_require) char *tryname; SV *namesv = Nullsv; SV** svp; - I32 gimme = G_SCALAR; + I32 gimme = GIMME_V; PerlIO *tryrsfp = 0; STRLEN n_a; int filter_has_file = 0; @@ -3360,7 +3360,7 @@ trylocal: { PL_eval_owner = thr; MUTEX_UNLOCK(&PL_eval_mutex); #endif /* USE_THREADS */ - return DOCATCH(doeval(G_SCALAR, NULL)); + return DOCATCH(doeval(gimme, NULL)); } PP(pp_dofile) |