summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2006-04-25 01:20:38 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-04-26 07:53:36 +0000
commitbb7a0f5422600fd7de7806825a1300a577b7e61f (patch)
tree822f6cd3d63d224843f4eba60c9f90fd3190d28f /mg.c
parentfcea4b7c99fe376a2295931b658ba7f41a47470e (diff)
downloadperl-bb7a0f5422600fd7de7806825a1300a577b7e61f.tar.gz
Re: [PATCH] cleanup 212 warnings emitted by gcc-4.2
Message-ID: <20060424232038.7550f9b6@r2d2> p4raw-id: //depot/perl@27962
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index 30545fcc31..b63a87c46c 100644
--- a/mg.c
+++ b/mg.c
@@ -1102,7 +1102,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
s = delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf,
s, strend, ':', &i);
s++;
- if (i >= sizeof tmpbuf /* too long -- assume the worst */
+ if (i >= (I32)sizeof tmpbuf /* too long -- assume the worst */
|| *tmpbuf != '/'
|| (PerlLIO_stat(tmpbuf, &st) == 0 && (st.st_mode & 2)) ) {
MgTAINTEDDIR_on(mg);