X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fcheck-www-inbox.perl;h=033b90d174dc16d4ccca8bc2a1c2ab189b2ca0af;hb=13a2fcc724576a78d0955f64dc0f4494545153c3;hp=402099570aca8ed807e2a9c5f3f5537dbd1806f3;hpb=9f5a583694396f84056b9d92255bba0197b52bc8;p=public-inbox.git
diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl
index 40209957..033b90d1 100644
--- a/t/check-www-inbox.perl
+++ b/t/check-www-inbox.perl
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# Copyright (C) 2016-2019 all contributors
+# Copyright (C) 2016-2021 all contributors
# License: AGPL-3.0+
# Parallel WWW checker
my $usage = "$0 [-j JOBS] [-s SLOW_THRESHOLD] URL_OF_INBOX\n";
@@ -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";