diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-01-09 12:55:09 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:53:53 +0000 |
| commit | 8c52afecd5252bed5ed8df3a63a6cd9affde4ab4 (patch) | |
| tree | bf76561b68d175b89a738902a9cce82ceb3cb23c /toke.c | |
| parent | cdaebead333273a920fe10cbcb2213a9fbefa241 (diff) | |
| download | perl-8c52afecd5252bed5ed8df3a63a6cd9affde4ab4.tar.gz | |
Newer -DLEAKTEST patch
p4raw-id: //depot/perl@466
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1121,7 +1121,7 @@ filter_add(filter_t funcp, SV *datasv) if (!rsfp_filters) rsfp_filters = newAV(); if (!datasv) - datasv = newSV(0); + datasv = NEWSV(255,0); if (!SvUPGRADE(datasv, SVt_PVIO)) die("Can't upgrade filter_add data to SVt_PVIO"); IoDIRP(datasv) = (DIR*)funcp; /* stash funcp into spare field */ |