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*
authorDave Mitchell <davem@fdisolutions.com>
Sun, 30 Apr 2006 12:32:09 +0000 (12:32 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sun, 30 Apr 2006 12:32:09 +0000 (12:32 +0000)
p4raw-id: //depot/perl@28023

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)                       \