unless (defined $vfork_spawn) {
require PublicInbox::SpawnPP;
- no warnings 'once';
- *pi_fork_exec = *PublicInbox::SpawnPP::pi_fork_exec
+ *pi_fork_exec = \&PublicInbox::SpawnPP::pi_fork_exec
}
sub which ($) {
use PublicInbox::Hval qw(ascii_html);
use PublicInbox::Linkify;
use PublicInbox::View;
+use PublicInbox::Inbox;
use bytes ();
use HTTP::Date qw(time2str);
require Digest::SHA;
require File::Spec;
-{ no warnings 'once'; *try_cat = *PublicInbox::Inbox::try_cat };
+*try_cat = \&PublicInbox::Inbox::try_cat;
sub list_all ($$$) {
my ($self, $env, $hide_key) = @_;
use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev);
use PublicInbox::AdminEdit;
PublicInbox::Admin::check_require('-index');
-require PublicInbox::Filter::Base;
-require PublicInbox::MIME;
+use PublicInbox::Filter::Base;
+use PublicInbox::MIME;
require PublicInbox::V2Writable;
-{ no warnings 'once'; *REJECT = *PublicInbox::Filter::Base::REJECT }
+*REJECT = \&PublicInbox::Filter::Base::REJECT;
my $usage = "$0 [--all] [INBOX_DIRS] </path/to/message";
my $opt = { verbose => 1, all => 0, -min_inbox_version => 2 };