From a60067777be62ee91d1318f9ae26d9ed713245de Mon Sep 17 00:00:00 2001 From: Perl 5 Porters Date: Wed, 1 Jan 1997 08:59:00 +1200 Subject: [inseparable changes from patch from perl5.003_17 to perl5.003_18] CORE LANGUAGE CHANGES Subject: Inherited overloading Date: Sun, 29 Dec 1996 08:12:54 -0500 (EST) From: Ilya Zakharevich Files: gv.c lib/overload.pm perl.h sv.c sv.h t/op/overload.t Chip Salzenberg writes: > > Patch now, tarchive later: Below is the fixed overloading patch. Note that in between AMG_names got const on it (a good thing!), but as a corollary I needed to cast away const-ness to actually use it (since, say, newSVpv does not have const args). Enjoy, p5p-msgid: <199612291312.IAA02134@monk.mps.ohio-state.edu> Subject: Closures at file scope must be anonymous From: Chip Salzenberg Files: op.c Subject: Warn on '{if,while} ($x = X)' where X is glob, readdir, or From: Chip Salzenberg Files: op.c pod/perldiag.pod DOCUMENTATION Subject: Re: perldiag.pod entry for "Scalar value @%s{%s} ..." Date: Tue, 31 Dec 1996 11:50:19 -0500 From: Roderick Schertler Files: pod/perldiag.pod Msg-ID: <2043.852051019@eeyore.ibcinc.com> (applied based on p5p patch as commit c885792efecf3f527b3b5099727cc16b03eee1dc) OTHER CORE CHANGES Subject: Get rid of 'Leaked scalars' From: Chip Salzenberg Files: cop.h gv.c op.c TESTS Subject: Expanded locale.t and misc.t From: Jarkko Hietaniemi Files: t/lib/locale.t t/lib/misc.t Subject: Expanded my.t From: Chip Salzenberg Files: t/lib/my.t --- cop.h | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'cop.h') diff --git a/cop.h b/cop.h index 543c039f85..9728962312 100644 --- a/cop.h +++ b/cop.h @@ -48,15 +48,12 @@ struct block_sub { #define POPSUB(cx) \ if (cx->blk_sub.hasargs) { /* put back old @_ */ \ + SvREFCNT_dec(GvAV(defgv)); \ GvAV(defgv) = cx->blk_sub.savearray; \ } \ if (cx->blk_sub.cv) { \ - if (!(CvDEPTH(cx->blk_sub.cv) = cx->blk_sub.olddepth)) { \ - if (cx->blk_sub.hasargs) { \ - SvREFCNT_inc((SV*)cx->blk_sub.argarray); \ - } \ + if (!(CvDEPTH(cx->blk_sub.cv) = cx->blk_sub.olddepth)) \ SvREFCNT_dec((SV*)cx->blk_sub.cv); \ - } \ } #define POPFORMAT(cx) \ -- cgit v1.2.1