diff options
author | Eric Wong <e@80x24.org> | 2022-08-17 09:33:15 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2022-08-18 07:21:46 +0000 |
commit | ea75b0db2bb439acdcd1d6e00a7bb76d96044f38 (patch) | |
tree | 146e96b7ff0a6b1b330ba7a0aae284aef8614af0 | |
parent | 174511cc094fa97432e32cbfa13dd7b2a945c4e3 (diff) | |
download | public-inbox-ea75b0db2bb439acdcd1d6e00a7bb76d96044f38.tar.gz |
It still says "Exception:", but doesn't pointlessly print out the line number and file of the exception when it's a data/input problem, and not a code problem on our end.
-rw-r--r-- | lib/PublicInbox/LeiInspect.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/PublicInbox/LeiInspect.pm b/lib/PublicInbox/LeiInspect.pm index d7775d4b..d1dca4ef 100644 --- a/lib/PublicInbox/LeiInspect.pm +++ b/lib/PublicInbox/LeiInspect.pm @@ -1,4 +1,4 @@ -# Copyright (C) 2021 all contributors <meta@public-inbox.org> +# Copyright (C) all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> # "lei inspect" general purpose inspector for stuff in SQLite and @@ -235,7 +235,8 @@ sub inspect_argv { # via wq_do $lei->{1}->autoflush(0); $lei->out('[') if $multi; while (defined(my $x = shift @$argv)) { - inspect1($lei, $x, scalar(@$argv)) or return; + eval { inspect1($lei, $x, scalar(@$argv)) or return }; + warn "E: $@\n" if $@; } $lei->out(']') if $multi; } |