diff options
Diffstat (limited to 'script/public-inbox-purge')
-rwxr-xr-x | script/public-inbox-purge | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/script/public-inbox-purge b/script/public-inbox-purge index 8f9b0b16..618cfec4 100755 --- a/script/public-inbox-purge +++ b/script/public-inbox-purge @@ -33,7 +33,7 @@ PublicInbox::Admin::do_chdir(delete $opt->{C}); my @ibxs = PublicInbox::Admin::resolve_inboxes(\@ARGV, $opt); PublicInbox::AdminEdit::check_editable(\@ibxs); -defined(my $data = do { local $/; <STDIN> }) or die "read STDIN: $!\n"; +my $data = PublicInbox::IO::read_all \*STDIN; PublicInbox::Eml::strip_from($data); my $n_purged = 0; |