[PATCH 5.005_61] regfree could segfault with -Mre=debug

--- ./regcomp.c~	Fri Sep 10 10:10:43 1999
+++ ./regcomp.c	Tue Sep 21 18:46:49 1999
@@ -3287,6 +3287,9 @@ Perl_pregfree(pTHX_ struct regexp *r)
 {
     dTHR;
     DEBUG_r(if (!PL_colorset) reginitcolors());
+
+    if (!r || (--r->refcnt > 0))
+	return;
     DEBUG_r(PerlIO_printf(Perl_debug_log,
 		      "%sFreeing REx:%s `%s%.60s%s%s'\n",
 		      PL_colors[4],PL_colors[5],PL_colors[0],
@@ -3294,9 +3297,6 @@ Perl_pregfree(pTHX_ struct regexp *r)
 		      PL_colors[1],
 		      (strlen(r->precomp) > 60 ? "..." : "")));
 
-
-    if (!r || (--r->refcnt > 0))
-	return;
     if (r->precomp)
 	Safefree(r->precomp);
     if (RX_MATCH_COPIED(r))

• [PATCH 5.005_61] regfree could segfault with -Mre=debug by Ilya Zakharevich
• shitfis(sjis) support on EBCDIC platform by mohammad yaseen
• Re: shitfis(sjis) support on EBCDIC platform by Nicholas Clark