From 8bafa73588ba25326f9c8e2987e930b62d25444f Mon Sep 17 00:00:00 2001 From: Marcus Holland-Moritz Date: Tue, 8 Jul 2003 13:14:05 +0200 Subject: warnings, line numbers & windows Message-ID: <12022.1057655645@www59.gmx.net> p4raw-id: //depot/perl@20068 --- mg.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mg.c') diff --git a/mg.c b/mg.c index b69da05403..dc1666ab60 100644 --- a/mg.c +++ b/mg.c @@ -2375,7 +2375,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #endif /* PL_origalen is set in perl_parse(). */ s = SvPV_force(sv,len); - if (len >= (I32)PL_origalen) { + if (len >= (STRLEN)PL_origalen) { /* Longer than original, will be truncated. */ Copy(s, PL_origargv[0], PL_origalen, char); PL_origargv[0][PL_origalen - 1] = 0; -- cgit v1.2.1