X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=script%2Fpublic-inbox-purge;fp=script%2Fpublic-inbox-purge;h=52f1f18a61cb210f283a30495577b7736870337c;hb=522bb4a4973d4ac41b83be58dd3257e8cd038744;hp=7bca11eafc6fc81f1566a6c8fc6b37e27817e6fb;hpb=0f545dd95ca88e69f011aa56d07494887e7df822;p=public-inbox.git

diff --git a/script/public-inbox-purge b/script/public-inbox-purge
index 7bca11ea..52f1f18a 100755
--- a/script/public-inbox-purge
+++ b/script/public-inbox-purge
@@ -32,7 +32,7 @@ if ($opt->{help}) { print $help; exit 0 };
 my @ibxs = PublicInbox::Admin::resolve_inboxes(\@ARGV, $opt);
 PublicInbox::AdminEdit::check_editable(\@ibxs);
 
-my $data = do { local $/; <STDIN> };
+defined(my $data = do { local $/; <STDIN> }) or die "read STDIN: $!\n";
 $data =~ s/\A[\r\n]*From [^\r\n]*\r?\n//s;
 my $n_purged = 0;