Silence VC warnings about possible operator precedence problems

and signed/unsigned mismatches

p4raw-id: //depot/perl@29532

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 9718c54516..3cd98c01bf 100644
--- a/util.c
+++ b/util.c
@@ -767,7 +767,7 @@ Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift
 	: (((pos = *old_posp), pos += PL_screamnext[pos]) == 0)) {
       cant_find:
 	if ( BmRARE(littlestr) == '\n'
-	     && BmPREVIOUS(littlestr) == SvCUR(littlestr) - 1) {
+	     && BmPREVIOUS(littlestr) == (U8)SvCUR(littlestr) - 1) {
 	    little = (const unsigned char *)(SvPVX_const(littlestr));
 	    littleend = little + SvCUR(littlestr);
 	    first = *little++;