Make the UTF-8 decoding stricter and more verbose when

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index cb2cb14..3d874ca 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2025,7 +2025,7 @@ NULL
 char *
 Perl_moreswitches(pTHX_ char *s)
 {
-    I32 numlen;
+    STRLEN numlen;
     U32 rschar;
 
     switch (*s) {