Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Simpify logic in Perl_pad_free(): SvIsCOW() has the same semantics in…

… all cases.
  • Loading branch information...
commit ddea3ea7e37dd9e47ccbeefed8302a04c561f972 1 parent 3270148
Nicholas Clark authored
Showing with 1 addition and 7 deletions.
  1. +1 −7 pad.c
View
8 pad.c
@@ -1310,13 +1310,7 @@ Perl_pad_free(pTHX_ PADOFFSET po)
SvPADTMP_off(PL_curpad[po]);
#ifdef USE_ITHREADS
/* SV could be a shared hash key (eg bugid #19022) */
- if (
-#ifdef PERL_OLD_COPY_ON_WRITE
- !SvIsCOW(PL_curpad[po])
-#else
- !SvFAKE(PL_curpad[po])
-#endif
- )
+ if (!SvIsCOW(PL_curpad[po]))
SvREADONLY_off(PL_curpad[po]); /* could be a freed constant */
#endif
}
Please sign in to comment.
Something went wrong with that request. Please try again.