diff options
-rwxr-xr-x | src/mum | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -123,9 +123,12 @@ h: $b = $MESSAGE if not $b; $a = $b if not $a; - open my $pager, '|-', $ENV{PAGER} || 'less' - or die "failed to open pager: $!"; - print $pager "$_\n" for get($a, $b); + open my $pager, '|-', $ENV{PAGER} || 'less' or do { + warn "failed to open pager: $!\n"; + next; + }; + local $SIG{PIPE} = sub {}; + print $pager "$_\n" for mbox($a, $b); close $pager; } |