regexec.c: Change function return from I32 to bool

This only returns TRUE or FALSE; no need for a wider return value.

3 files changed, 3 insertions, 3 deletions

diff --git a/embed.fnc b/embed.fnc
index d4f87c8234..096a92e5d8 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2260,7 +2260,7 @@ ERs	|I32	|regrepeat	|NN regexp *prog|NN char **startposp \
 				|NN regmatch_info *const reginfo \
 				|I32 max \
 				|int depth
-ERs	|I32	|regtry		|NN regmatch_info *reginfo|NN char **startposp
+ERs	|bool	|regtry		|NN regmatch_info *reginfo|NN char **startposp
 ERs	|bool	|reginclass	|NULLOK regexp * const prog  \
 				|NN const regnode * const n  \
 				|NN const U8 * const p       \
diff --git a/proto.h b/proto.h
index df82647679..7d7fe88d5a 100644
--- a/proto.h
+++ b/proto.h
@@ -5047,7 +5047,7 @@ STATIC I32	S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, r
 #define PERL_ARGS_ASSERT_REGREPEAT	\
 	assert(prog); assert(startposp); assert(p); assert(reginfo)
 
-STATIC I32	S_regtry(pTHX_ regmatch_info *reginfo, char **startposp)
+STATIC bool	S_regtry(pTHX_ regmatch_info *reginfo, char **startposp)
 			__attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_REGTRY	\
 	assert(reginfo); assert(startposp)
diff --git a/regexec.c b/regexec.c
index 5535a0e736..504ae6156a 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3478,7 +3478,7 @@ Perl_regexec_flags(pTHX_ REGEXP * const rx, char *stringarg, char *strend,
 /*
  - regtry - try match at specific point
  */
-STATIC I32			/* 0 failure, 1 success */
+STATIC bool			/* 0 failure, 1 success */
 S_regtry(pTHX_ regmatch_info *reginfo, char **startposp)
 {
     CHECKPOINT lastcp;