diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2001-03-03 12:14:07 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-04 18:07:48 +0000 |
| commit | db615365202f390b6c9c07819116dcb70ebcf654 (patch) | |
| tree | 48836e9957aa485d2e53b327f93619a8aa8e3dfd /pp_hot.c | |
| parent | 7c95f590e1d3e90413f423893f54acc0b5dc228c (diff) | |
| download | perl-db615365202f390b6c9c07819116dcb70ebcf654.tar.gz | |
pattern in G_ARRAY context
Message-ID: <Pine.GSO.4.21.0103031712070.1035-100000@crusoe.crusoe.net>
p4raw-id: //depot/perl@9018
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1249,7 +1249,7 @@ PP(pp_match) } } } - if ((gimme != G_ARRAY && !global && rx->nparens) + if ((!global && rx->nparens) || SvTEMP(TARG) || PL_sawampersand) r_flags |= REXEC_COPY_STR; if (SvSCREAM(TARG)) |