diff options
author | Eric Wong <e@80x24.org> | 2024-02-01 20:59:48 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2024-02-06 00:39:57 +0000 |
commit | 885db166cdec5dd0befd46f94f36edb9e786169a (patch) | |
tree | fe6dfe38b4412cda065850d8d69df7246f3a17ab /lib | |
parent | 58fea974d2857c69e15d974cb62f8cabeeb32792 (diff) | |
download | public-inbox-885db166cdec5dd0befd46f94f36edb9e786169a.tar.gz |
The packaged Perl on OpenBSD i386 supports 64-bit file offsets but not 64-bit integer support for 'q' and 'Q' with `pack'. Since servers aren't likely to require lock files larger than 2 GB (we'd need an inbox with >2 billion messages), we can workaround the Perl build limitation with explicit padding. File::FcntlLock isn't packaged for OpenBSD <= 7.4 (but should be in future releases), but I can test i386 OpenBSD on an extremely slow VM. Big endian support can be done, too, but I have no idea if there's 32-bit BE users around nowadays...
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/POP3D.pm | 28 |
1 files changed, 21 insertions, 7 deletions
diff --git a/lib/PublicInbox/POP3D.pm b/lib/PublicInbox/POP3D.pm index 38e982ee..bd440434 100644 --- a/lib/PublicInbox/POP3D.pm +++ b/lib/PublicInbox/POP3D.pm @@ -18,18 +18,32 @@ my ($FLOCK_TMPL, @FLOCK_ORDER); if ($^O =~ /\A(?:linux|dragonfly)\z/ || $^O =~ /bsd/) { require Config; my $off_t; + my @LE_pad = ('', ''); my $sz = $Config::Config{lseeksize}; - - if ($sz == 8 && eval('length(pack("q", 1)) == 8')) { $off_t = 'q' } - elsif ($sz == 4) { $off_t = 'l' } - else { warn "sizeof(off_t)=$sz requires File::FcntlLock\n" } - + if ($sz == 8) { + if (eval('length(pack("q", 1)) == 8')) { + $off_t = 'q'; + } elsif ($Config::Config{byteorder} == 1234) { # OpenBSD i386 + $off_t = 'l'; + @LE_pad = ('@8', '@16'); + } else { # I have no 32-bit BE machine to test on... + warn <<EOM; +Perl built with 64-bit file support but not 64-bit int (pack("q")) support. +byteorder=$Config::Config{byteorder} +EOM + } + } elsif ($sz == 4) { + $off_t = 'l'; + } else { + warn "sizeof(off_t)=$sz requires File::FcntlLock\n" + } if (defined($off_t)) { if ($^O eq 'linux') { - $FLOCK_TMPL = "ss\@8$off_t$off_t\@32"; + $FLOCK_TMPL = 'ss@8'.$off_t.$LE_pad[0].$off_t.'@32'; @FLOCK_ORDER = qw(l_type l_whence l_start l_len); } else { # *bsd including dragonfly - $FLOCK_TMPL = "${off_t}${off_t}lss\@256"; + $FLOCK_TMPL = $off_t.$LE_pad[0].$off_t.$LE_pad[1]. + 'lss@256'; @FLOCK_ORDER = qw(l_start l_len l_pid l_type l_whence); } } |