diff options
author | Eric Wong <e@80x24.org> | 2021-03-28 09:01:24 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-03-28 23:01:37 +0000 |
commit | 80f4192574065106ae72a7a73ee0f02ebd86708a (patch) | |
tree | af6889740669aa8e05bdef4ddf932f562b3a444b /lib/PublicInbox/V2Writable.pm | |
parent | 8c8bd22ec8c74a3bf66a611a2a0c2d4d76a42ddb (diff) | |
download | public-inbox-80f4192574065106ae72a7a73ee0f02ebd86708a.tar.gz |
File::Temp only requires four 'X' characters (unlike mkstemp(3), which requires six). So only so only give it 4 to avoid an 80-column violation and maybe save metadata space on FSes.
Diffstat (limited to 'lib/PublicInbox/V2Writable.pm')
-rw-r--r-- | lib/PublicInbox/V2Writable.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/PublicInbox/V2Writable.pm b/lib/PublicInbox/V2Writable.pm index 4130a472..0461257f 100644 --- a/lib/PublicInbox/V2Writable.pm +++ b/lib/PublicInbox/V2Writable.pm @@ -660,7 +660,7 @@ sub done { sub write_alternates ($$$) { my ($info_dir, $mode, $out) = @_; - my $fh = File::Temp->new(TEMPLATE => 'alt-XXXXXXXX', DIR => $info_dir); + my $fh = File::Temp->new(TEMPLATE => 'alt-XXXX', DIR => $info_dir); my $tmp = $fh->filename; print $fh @$out or die "print $tmp: $!\n"; chmod($mode, $fh) or die "fchmod $tmp: $!\n"; @@ -772,11 +772,11 @@ sub import_init { sub diff ($$$) { my ($mid, $cur, $new) = @_; - my $ah = File::Temp->new(TEMPLATE => 'email-cur-XXXXXXXX', TMPDIR => 1); + my $ah = File::Temp->new(TEMPLATE => 'email-cur-XXXX', TMPDIR => 1); print $ah $cur->as_string or die "print: $!"; $ah->flush or die "flush: $!"; PublicInbox::Import::drop_unwanted_headers($new); - my $bh = File::Temp->new(TEMPLATE => 'email-new-XXXXXXXX', TMPDIR => 1); + my $bh = File::Temp->new(TEMPLATE => 'email-new-XXXX', TMPDIR => 1); print $bh $new->as_string or die "print: $!"; $bh->flush or die "flush: $!"; my $cmd = [ qw(diff -u), $ah->filename, $bh->filename ]; |