This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove debugging assert
authorNick Ing-Simmons <nik@tiuk.ti.com>
Mon, 4 Mar 2002 14:42:09 +0000 (14:42 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Mon, 4 Mar 2002 14:42:09 +0000 (14:42 +0000)
p4raw-id: //depot/perlio@14995

ext/threads/shared/shared.xs

index 5f1b340..ee05c57 100644 (file)
@@ -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;
 }