diff options
author | Tony Cook <tony@develop-help.com> | 2010-10-24 11:35:02 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2010-10-24 11:35:02 +1100 |
commit | c8eb38133b1d44413e79b2e0097122af6d1c7b7d (patch) | |
tree | efa62b950a0cfa804fd491104b5e20a9a3190543 /sv.c | |
parent | fe00c367fe78b2f74d9843e2172251b5dde5054a (diff) | |
download | perl-c8eb38133b1d44413e79b2e0097122af6d1c7b7d.tar.gz |
remove ; so the conditional actually controls some code
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; } |