diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-12 03:36:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-12 03:36:17 +0000 |
| commit | 6b7c0e6edcea00cbbde34f695354b0ec1ee0e05b (patch) | |
| tree | 67536f93988f51ffa1584a3fab57b546a8eca9e5 /doop.c | |
| parent | 5fdefdaa920c4643bf43d35f5769ae9e378ef4c9 (diff) | |
| download | perl-6b7c0e6edcea00cbbde34f695354b0ec1ee0e05b.tar.gz | |
insufficient buffer in change#5317
p4raw-link: @5317 on //depot/perl: 0c57e439868bda58b2cbd4708d7a8b4dcf15b989
p4raw-id: //depot/perl@5670
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1098,6 +1098,9 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right) STRLEN dulen = 0; I32 ulen; + if (optype != OP_BIT_AND) + dc = SvGROW(sv, leftlen+rightlen+1); + switch (optype) { case OP_BIT_AND: while (lulen && rulen) { |