In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c8eb38133b1d44413e79b2e0097122af6d1c7b7d?hp=fe00c367fe78b2f74d9843e2172251b5dde5054a>
- Log ----------------------------------------------------------------- commit c8eb38133b1d44413e79b2e0097122af6d1c7b7d Author: Tony Cook <[email protected]> Date: Sun Oct 24 11:35:02 2010 +1100 remove ; so the conditional actually controls some code ----------------------------------------------------------------------- Summary of changes: sv.c | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/sv.c b/sv.c index 9afc3f6..a511a9a 100644 --- a/sv.c +++ b/sv.c @@ -4033,11 +4033,12 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags) if (len > 1 && name[len-2] == ':' && name[len-1] == ':') { /* Set aside the old stash, so we can reset isa caches on its subclasses. */ - if((old_stash = GvHV(dstr))); + if((old_stash = GvHV(dstr))) { /* Make sure we do not lose it early. */ SvREFCNT_inc_simple_void_NN( sv_2mortal((SV *)old_stash) ); + } reset_isa = TRUE; } -- Perl5 Master Repository
