use warnings;
use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev);
use PublicInbox::AdminEdit;
-use File::Temp qw(tempfile);
+use File::Temp ();
use PublicInbox::ContentId qw(content_id);
use PublicInbox::MID qw(mid_clean mids);
PublicInbox::Admin::check_require('-index');
$found = { $cid => $to_edit };
}
-my $tmpl = 'public-inbox-edit-XXXXXX';
+my %tmpopt = (
+ TEMPLATE => 'public-inbox-edit-XXXXXX',
+ TMPDIR => 1,
+ SUFFIX => $opt->{raw} ? '.eml' : '.mbox',
+);
+
foreach my $to_edit (values %$found) {
- my ($edit_fh, $edit_fn) = tempfile($tmpl, TMPDIR => 1, UNLINK => 1);
+ my $edit_fh = File::Temp->new(%tmpopt);
$edit_fh->autoflush(1);
+ my $edit_fn = $edit_fh->filename;
my ($ibx, $smsg) = @{$to_edit->[0]};
my $old_raw = $ibx->msg_by_smsg($smsg);
delete @$ibx{qw(over mm git search)}; # cleanup