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")

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/PublicInbox/GitHTTPBackend.pm b/lib/PublicInbox/GitHTTPBackend.pm
index 4b396934..937b2e9a 100644
--- 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";