mda: use read_all for error handling

We already imported PublicInbox::IO for this script and read_all
provides more safety in case default PerlIO semantics change for
read-in-full behavior.

diff --git a/script/public-inbox-mda b/script/public-inbox-mda
index 9d68ea35d5de23a27e198248976bff2b51b4d256..bc1dc286ff799c7f8d9807124ef7f98247451856 100755 (executable)
--- a/script/public-inbox-mda
+++ b/script/public-inbox-mda
@@ -100,8 +100,7 @@ if ($spamc) {
 } else { # no spam checking configured:
        $spam_ok = 1;
        $emm = $ems;
-       my $fh = $emm->fh;
-       read($fh, $str, -s $fh);
+       PublicInbox::IO::read_all $emm->fh, undef, \$str;
 }
 $do_exit->(0) unless $spam_ok;