git-http-backend: use real lseek for Content-Range

Since we use sysread, we must use sysseek for symmetry although
PerlIO may be doing a real lseek with "seek", anyways.

Fixes: 310819ea86ac ("git-http-backend: favor sysread for regular files")

diff --git a/lib/PublicInbox/GitHTTPBackend.pm b/lib/PublicInbox/GitHTTPBackend.pm
index 4b3969346acefda27f49ffd47c5f0b26db49a1c6..937b2e9a295e0ddb974bfad1114cb997868c028f 100644 (file)
--- a/lib/PublicInbox/GitHTTPBackend.pm
+++ b/lib/PublicInbox/GitHTTPBackend.pm
@@ -130,7 +130,7 @@ sub prepare_range {
                if ($len <= 0) {
                        $code = 416;
                } else {
-                       seek($in, $beg, SEEK_SET) or return [ 500, [], [] ];
+                       sysseek($in, $beg, SEEK_SET) or return [ 500, [], [] ];
                        push @$h, qw(Accept-Ranges bytes Content-Range);
                        push @$h, "bytes $beg-$end/$size";