This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
SSize_t, not IV, is a signed STRLEN
authorChip Salzenberg <chip@pobox.com>
Wed, 12 Oct 2011 00:30:29 +0000 (17:30 -0700)
committerChip Salzenberg <chip@pobox.com>
Wed, 12 Oct 2011 00:30:29 +0000 (17:30 -0700)
sv.c

diff --git a/sv.c b/sv.c
index 59d8af5..24b934c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5753,7 +5753,7 @@ Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN l
     register char *mid;
     register char *midend;
     register char *bigend;
     register char *mid;
     register char *midend;
     register char *bigend;
-    register IV i;
+    register SSize_t i;                /* better be sizeof(STRLEN) or bad things happen */
     STRLEN curlen;
 
     PERL_ARGS_ASSERT_SV_INSERT_FLAGS;
     STRLEN curlen;
 
     PERL_ARGS_ASSERT_SV_INSERT_FLAGS;