diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-09-21 12:08:47 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-21 07:54:10 +0000 |
| commit | b57a0404d6b6347be89474e64fcdac6ac6ea98db (patch) | |
| tree | acdc5f5e654b84d9d6ecc8464e9ca179e7c71359 /util.c | |
| parent | fab43c1bb262944cb8f1d820af87e47b89cd3e12 (diff) | |
| download | perl-b57a0404d6b6347be89474e64fcdac6ac6ea98db.tar.gz | |
deal with some gcc warnings
Message-ID: <45122C6F.9080904@iki.fi>
p4raw-id: //depot/perl@28877
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -5475,7 +5475,7 @@ Perl_my_clearenv(pTHX) char *buf = (char*)safesysmalloc(bufsiz); while (*environ != NULL) { char *e = strchr(*environ, '='); - int l = e ? e - *environ : strlen(*environ); + int l = e ? e - *environ : (int)strlen(*environ); if (bsiz < l + 1) { (void)safesysfree(buf); bsiz = l + 1; /* + 1 for the \0. */ |