Perl module: fix sendfile() to work with large files.

[Maxim Dounin <mdounin@xxxxxxxxxx>]

Hello!

Патч.

Maxim Dounin

# HG changeset patch
# User Maxim Dounin <mdounin@xxxxxxxxxx>
# Date 1240934462 -14400
# Node ID a2d0123c0f1cbdd30de9f1f85831e781b8f0329b
# Parent  28335b73075091c0e231e7660b1c1fca1dc23ef8
Perl: fix sendfile() to work with large files.

diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -607,7 +607,7 @@ sendfile(r, filename, offset = -1, bytes
 
     ngx_http_request_t        *r;
     char                      *filename;
-    int                        offset;
+    off_t                      offset;
     size_t                     bytes;
     ngx_str_t                  path;
     ngx_buf_t                 *b;