Fixes for signedness warnings noticed by VMSperlers.

p4raw-id: //depot/perl@7824

1 files changed, 6 insertions, 2 deletions

diff --git a/regcomp.c b/regcomp.c
index 3b474b2458..c906790a86 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3007,8 +3007,12 @@ tryagain:
 	loopdone:
 	    RExC_parse = p - 1;
 	    nextchar(pRExC_state);
-	    if (len < 0)
-		vFAIL("Internal disaster");
+	    {
+		/* len is STRLEN which is unsigned, need to copy to signed */
+		IV iv = len;
+		if (iv < 0)
+		    vFAIL("Internal disaster");
+	    }
 	    if (len > 0)
 		*flagp |= HASWIDTH;
 	    if (len == 1)