treewide: shorten temporary filename

[public-inbox.git] / scripts / ssoma-replay

diff --git a/scripts/ssoma-replay b/scripts/ssoma-replay
index cfb0fbd91ff215f2c895443bdab0c2592bca4966..70d0081dcd7426c95cd429b932f03d064a09216a 100755 (executable)
--- a/scripts/ssoma-replay
+++ b/scripts/ssoma-replay
@@ -29,7 +29,7 @@ use strict;
 use Email::Simple;
 use URI::Escape qw/uri_escape_utf8/;
 use File::Temp qw/tempfile/;
-my ($fh, $filename) = tempfile('ssoma-replay-XXXXXXXX', TMPDIR => 1);
+my ($fh, $filename) = tempfile('ssoma-replay-XXXX', TMPDIR => 1);
 my $msg = Email::Simple->new(do { local $/; <STDIN> });
 select $fh;