diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-07-08 13:14:05 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-08 08:36:27 +0000 |
| commit | 8bafa73588ba25326f9c8e2987e930b62d25444f (patch) | |
| tree | 18b526c68f814b842f03553e0e7f22ab47352ea9 /mg.c | |
| parent | 3ea7755680302231fb5fb2feb962b211d651338f (diff) | |
| download | perl-8bafa73588ba25326f9c8e2987e930b62d25444f.tar.gz | |
warnings, line numbers & windows
Message-ID: <12022.1057655645@www59.gmx.net>
p4raw-id: //depot/perl@20068
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |