diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-23 15:55:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-23 15:55:47 +0000 |
| commit | 0f722b558ffdeebb2a4a1827ea54471c04bdd41d (patch) | |
| tree | ef0d5e257c3e069418d794dc51ab72c132501d45 /pp_hot.c | |
| parent | bbe252da68db3f0a4d00844fdb5e30bf18a0828f (diff) | |
| download | perl-0f722b558ffdeebb2a4a1827ea54471c04bdd41d.tar.gz | |
Fix for bug #38631: tied variables don't work with .= <>
p4raw-id: //depot/perl@29361
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1650,6 +1650,8 @@ Perl_do_readline(pTHX) have_fp: if (gimme == G_SCALAR) { sv = TARG; + if (type == OP_RCATLINE && SvGMAGICAL(sv)) + mg_get(sv); if (SvROK(sv)) { if (type == OP_RCATLINE) SvPV_force_nolen(sv); |