From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 14 Jun 2005 17:24:18 +0000 (+0000)
Subject: whoops, Perl_magic_freearylen_p returns int
X-Git-Tag: perl-5.9.3~1722
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/1ea47f6431e8749bc845692316ac30b8fd72e6a9?hp=b55685ae0907b7da1c668988d736c684531f41ac

whoops, Perl_magic_freearylen_p returns int

p4raw-id: //depot/perl@24844
---

diff --git a/mg.c b/mg.c
index b2b0620..36ee9d6 100644
--- a/mg.c
+++ b/mg.c
@@ -1675,7 +1675,7 @@ Perl_magic_freearylen_p(pTHX_ SV *sv, MAGIC *mg)
 {
     /* during global destruction, mg_obj may already have been freed */
     if (PL_in_clean_all)
-	return;
+	return 0;
 
     mg = mg_find (mg->mg_obj, PERL_MAGIC_arylen);