diff options
Diffstat (limited to 'scripts/ssoma-replay')
-rwxr-xr-x | scripts/ssoma-replay | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/scripts/ssoma-replay b/scripts/ssoma-replay index 3e928084..07121423 100755 --- a/scripts/ssoma-replay +++ b/scripts/ssoma-replay @@ -30,10 +30,7 @@ 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(<STDIN>); -}; +my $msg = Email::Simple->new(do { local $/; <STDIN> }); select $fh; # Note: the archive URL makes assumptions about where the |