Silence a couple of Borland compiler warnings

p4raw-id: //depot/perl@28643

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index a0ea7f2c0d..ac55c82470 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2383,7 +2383,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog)
 
     /* these variables are NOT saved during a recusive RFEGMATCH: */
     register I32 nextchr;   /* is always set to UCHARAT(locinput) */
-    bool result;	    /* return value of S_regmatch */
+    bool result = 0;	    /* return value of S_regmatch */
     int depth = 0;	    /* depth of recursion */
     regmatch_state *yes_state = NULL; /* state to pop to on success of
 							    subpattern */