From 80f4192574065106ae72a7a73ee0f02ebd86708a Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sun, 28 Mar 2021 09:01:24 +0000 Subject: treewide: shorten temporary filename 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. --- t/check-www-inbox.perl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 't/check-www-inbox.perl') diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl index eee8adc2..033b90d1 100644 --- a/t/check-www-inbox.perl +++ b/t/check-www-inbox.perl @@ -91,7 +91,7 @@ foreach my $p (1..$nproc) { } } -my ($fh, $tmp) = tempfile('www-check-XXXXXXXX', +my ($fh, $tmp) = tempfile('www-check-XXXX', SUFFIX => '.gdbm', UNLINK => 1, TMPDIR => 1); my $gdbm = tie my %seen, 'GDBM_File', $tmp, &GDBM_WRCREAT, 0600; defined $gdbm or die "gdbm open failed: $!\n"; -- cgit v1.2.3-24-ge0c7