diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-04 17:11:19 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-04 17:11:19 +0000 |
commit | eb31b78e700ea0345396e27142faff79fd75f356 (patch) | |
tree | b2e76ca4fe6e39fd633082d202794c4321259725 /ext | |
parent | da687c2af97fa1d5b33113fe1498d87de2b43b2a (diff) | |
download | perl-eb31b78e700ea0345396e27142faff79fd75f356.tar.gz |
Integrate perlio:
[ 15002]
Win32 tweak
[ 14999]
Win32 hack
[ 14995]
Remove debugging assert
p4raw-link: @15002 on //depot/perlio: 330f1a50c5d35c91987f1aef437dcb98bb1db640
p4raw-link: @14999 on //depot/perlio: aa0955498d45bb8096ef3cae16377877c15810a6
p4raw-link: @14995 on //depot/perlio: 24140e009b1b0a7cb78bf9b74be60f7a30a12452
p4raw-id: //depot/perl@15008
Diffstat (limited to 'ext')
-rw-r--r-- | ext/threads/shared/shared.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 5f1b3407dc..ee05c574b0 100644 --- a/ext/threads/shared/shared.xs +++ b/ext/threads/shared/shared.xs @@ -452,7 +452,9 @@ int sharedsv_scalar_mg_free(pTHX_ SV *sv, MAGIC *mg) { shared_sv *shared = (shared_sv *) mg->mg_ptr; +#if 0 assert (SvREFCNT(SHAREDSvPTR(shared)) < 1000); +#endif Perl_sharedsv_free(aTHX_ shared); return 0; } |