This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove a compiler warning by making HOPBACKc only hop *back*
[perl5.git] / regexec.c
index c006101..94ad06f 100644 (file)
--- a/regexec.c
+++ b/regexec.c
            : (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)                       \