X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=scripts%2Fssoma-replay;h=70d0081dcd7426c95cd429b932f03d064a09216a;hb=760c225c3831a9164f11ddf9d5318ad6c3f84bb8;hp=3e928084bb90dcba67712bc3d8129224651ad7da;hpb=906393b801050e303d2ec2a660c85de4a5fa4740;p=public-inbox.git
diff --git a/scripts/ssoma-replay b/scripts/ssoma-replay
index 3e928084..70d0081d 100755
--- a/scripts/ssoma-replay
+++ b/scripts/ssoma-replay
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# Copyright (C) 2015-2020 all contributors
+# Copyright (C) 2015-2021 all contributors
# License: AGPL-3.0+
#
# A work-in-progress, but one day I hope this script is no longer
@@ -29,11 +29,8 @@ 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 $msg = eval {
- local $/;
- Email::Simple->new();
-};
+my ($fh, $filename) = tempfile('ssoma-replay-XXXX', TMPDIR => 1);
+my $msg = Email::Simple->new(do { local $/; });
select $fh;
# Note: the archive URL makes assumptions about where the