This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
win32_chsize buglet
authorKevin Chase <kevincha99@hotmail.com>
Sun, 28 Dec 2003 15:48:56 +0000 (07:48 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 29 Dec 2003 10:31:07 +0000 (10:31 +0000)
From: "Kevin Chase" <kevincha99@hotmail.com>
Message-ID: <BAY2-F90usv0ccZRh8Z0005683d@hotmail.com>

p4raw-id: //depot/perl@21992

win32/win32.c

index 3883757..f4c43fc 100644 (file)
@@ -3154,7 +3154,7 @@ win32_chsize(int fd, Off_t size)
        do {
            count = extend >= sizeof(b) ? sizeof(b) : (size_t)extend;
            count = win32_write(fd, b, count);
-           if (count < 0) {
+           if ((int)count < 0) {
                retval = -1;
                break;
            }