[Net::FTPServer] Fwd: address@hidden: [rt.cpan.org #35332] [PATCH] Large file sizes overflowing integer]

[Richard Jones]

----- Forwarded message from Kevin Morgan via RT <address@hidden> -----

Subject: [rt.cpan.org #35332] [PATCH] Large file sizes overflowing integer 
From: Kevin Morgan via RT <address@hidden>
To: undisclosed-recipients: ;
Reply-To: address@hidden
X-RT-Loop-Prevention: rt.cpan.org
RT-Ticket: rt.cpan.org #35332
Managed-by: RT 3.6.HEAD (http://www.bestpractical.com/rt/)
RT-Originator: address@hidden
X-RT-Original-Encoding: utf-8
X-Virus-Checked: Checked by ClamAV on 16.mx.develooper.com
X-Old-Spam-Check-By: 16.mx.develooper.com
X-Old-Spam-Status: No, hits=-2.6 required=8.0
        tests=BAYES_00


Wed Apr 23 07:02:14 2008: Request 35332 was acted upon.
Transaction: Ticket created by address@hidden
       Queue: Net-FTPServer
     Subject: [PATCH] Large file sizes overflowing integer
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: address@hidden
      Status: new
 Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=35332 >


This patch fixes an issue in Net::FTPServer that overflows an integer
with large file sizes and so displays an incorrect filesize.


--- FTPServer.pm        2005-07-15 11:10:22.000000000 +0100
+++ FTPServer.pm.new    2008-04-23 11:56:39.000000000 +0100
@@ -7527,7 +7527,7 @@
 
     # Display the file.
     my $line = sprintf
-      ("%s%s%4d %-8s %-8s %8d %s %s%s\r\n",
+      ("%s%s%4d %-8s %-8s %8.0f %s %s%s\r\n",
        $fmt_mode,
        $fmt_perms,
        $nlink,


----- End forwarded message -----

-- 
Richard Jones
Red Hat