lei_saved_search: show errno on ->flush failure

->flush failures need to describe the nature of the
failure, not just the failing handle.

diff --git a/lib/PublicInbox/LeiSavedSearch.pm b/lib/PublicInbox/LeiSavedSearch.pm
index 574cf9aa89ec570c90faa822e7e3adb0e321d35b..aed8b0c9c4fa00aeb2d951e446da9322c4414c4b 100644 (file)
--- a/lib/PublicInbox/LeiSavedSearch.pm
+++ b/lib/PublicInbox/LeiSavedSearch.pm
@@ -89,7 +89,7 @@ sub list {
                my $p = "$lss_dir/$d/lei.saved-search";
                say $fh "\tpath = ", cquote_val($p) if -f $p;
        }
-       $fh->flush or die "flush: $fh";
+       $fh->flush or die "$fh->flush: $!";
        my $cfg = $lei->cfg_dump($fh->filename);
        my $out = $cfg ? $cfg->get_all('lei.q.output') : [];
        s!$LOCAL_PFX!! for @$out;