From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 17 Mar 2000 02:48:14 +0000 (+0000)
Subject: fix signedness in test for syswrite() length argument
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c001241a85862cb26f00a7e6c570426d26c26d0;p=p5sagit%2Fp5-mst-13.2.git

fix signedness in test for syswrite() length argument

p4raw-id: //depot/perl@5768
---

diff --git a/pp_sys.c b/pp_sys.c
index 90c1221..5831f4c 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1616,11 +1616,11 @@ PP(pp_send)
     bufsv = *++MARK;
     buffer = SvPV(bufsv, blen);
 #if Size_t_size > IVSIZE
-    length = SvNVx(*++MARK);
+    length = (Size_t)SvNVx(*++MARK);
 #else
-    length = SvIVx(*++MARK);
+    length = (Size_t)SvIVx(*++MARK);
 #endif
-    if ((Size_t)length < 0)
+    if ((SSize_t)length < 0)
 	DIE(aTHX_ "Negative length");
     SETERRNO(0,0);
     io = GvIO(gv);