From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 30 Apr 2006 12:32:09 +0000 (+0000)
Subject: remove a compiler warning by making HOPBACKc only hop *back*
X-Git-Tag: v5.10.0~3764
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/b9ea4ed635ce80660161459fbde22a8c65d414db

remove a compiler warning by making HOPBACKc only hop *back*

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

diff --git a/regexec.c b/regexec.c
index c006101..94ad06f 100644
--- a/regexec.c
+++ b/regexec.c
@@ -104,7 +104,7 @@
 	    : (U8*)(pos + off)))
 #define HOPBACKc(pos, off) ((char*)	\
     ((PL_reg_match_utf8)		\
-	? reghopmaybe3((U8*)pos, -off, ((U8*)(off < 0 ? PL_regeol : PL_bostr))) \
+	? reghopmaybe3((U8*)pos, -off, (U8*)PL_bostr) \
     : (pos - off >= PL_bostr)		\
 	? (U8*)(pos - off)		\
     : (U8*)NULL)			\