diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-08 16:51:27 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 18:06:29 +0000 |
| commit | 1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90 (patch) | |
| tree | 594be049f6d75b6949b880b017535670ff194ed3 /doop.c | |
| parent | a223bd6128bafe323fc3be7c344f6b66aa25af02 (diff) | |
| download | perl-1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90.tar.gz | |
Re: [ID 20000807.008] Double reads considered evil? (deja vu)
Message-Id: <E13MAj1-00038W-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6552
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -487,7 +487,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s (void)SvUPGRADE(sv, SVt_PV); if (SvLEN(sv) < len + items) { /* current length is way too short */ while (items-- > 0) { - if (*mark && !SvGMAGICAL(*mark) && SvOK(*mark)) { + if (*mark && !SvGAMAGIC(*mark) && SvOK(*mark)) { SvPV(*mark, tmplen); len += tmplen; } |