diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-03-26 23:01:46 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-26 22:08:16 +0000 |
| commit | bc44a8a2ef6444a7379feaa886439b1a4b82d7b2 (patch) | |
| tree | 6204eb2f6cba9d02a1cd6cc545043b5fa7ea0aac /pp_hot.c | |
| parent | 46ff39aa3cae6c7727297dc4bbc5eda0da9c5616 (diff) | |
| download | perl-bc44a8a2ef6444a7379feaa886439b1a4b82d7b2.tar.gz | |
Better version of change #19069
Subject: [PATCH] Re: [PATCH] Re: [perl #21614] 5.8.0 Unbalanced string table refcount
Message-ID: <20030326230145.GC279@Bagpuss.unfortu.net>
p4raw-link: @19069 on //depot/perl: 10bcdfd6e8d70ea5a2c02616001cf97fce7f3e17
p4raw-id: //depot/perl@19071
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1509,7 +1509,7 @@ Perl_do_readline(pTHX) sv_unref(sv); (void)SvUPGRADE(sv, SVt_PV); tmplen = SvLEN(sv); /* remember if already alloced */ - if (!tmplen) + if (!tmplen && !SvREADONLY(sv)) Sv_Grow(sv, 80); /* try short-buffering it */ offset = 0; if (type == OP_RCATLINE && SvOK(sv)) { |