diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-05-31 00:20:58 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 22:11:13 +0000 |
| commit | 5ba99574b995836e37952cfa1f94ae1305814178 (patch) | |
| tree | 5d2502d8154eae9975164f9e7dc720b720dd7c54 /doop.c | |
| parent | e5e86a04d41b47e59c9768a63040ce5ef574d6c7 (diff) | |
| download | perl-5ba99574b995836e37952cfa1f94ae1305814178.tar.gz | |
Re: [PATCH doop.c] unused variable in Perl_do_join
Message-ID: <20010530232058.B86445@plum.flirble.org>
p4raw-id: //depot/perl@10332
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -648,7 +648,8 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s STRLEN delimlen; STRLEN tmplen; - (void) SvPV(del, delimlen); /* get the delimlen */ + (void) SvPV(del, delimlen); /* stringify and get the delimlen */ + /* SvCUR assumes it's SvPOK() and woe betide you if it's not. */ mark++; len = (items > 0 ? (delimlen * (items - 1) ) : 0); |