perl 5.0 alpha 6

[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 9bfcfba12f..131ad0fe29 100644
--- a/regexec.c
+++ b/regexec.c
@@ -165,7 +165,7 @@ I32 safebase;	/* no need to remember string in subbase */
 			minlen = prog->regback + SvCUR(prog->regmust);
 		}
 		else if (--BmUSEFUL(prog->regmust) < 0) { /* boo */
-			sv_free(prog->regmust);
+			SvREFCNT_dec(prog->regmust);
 			prog->regmust = Nullsv;	/* disable regmust */
 			s = string;
 		}