[PATCH 12/13] lei: ->fail only allows integer exit codes

[Eric Wong]

We can't use floating point numbers nor Inf/-Inf as exit codes;
but we can allow `-1' as shorthand for 255.
---
 lib/PublicInbox/LEI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 1b14d5e1..1899bf38 100644
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -524,7 +524,7 @@ sub sigpipe_handler { # handles SIGPIPE from @WQ_KEYS 
workers
 
 sub fail ($;@) {
        my ($lei, @msg) = @_;
-       my $exit_code = looks_like_number($msg[0]) ? shift(@msg) : undef;
+       my $exit_code = ($msg[0]//'') =~ /\A-?[0-9]+\z/ ? shift(@msg) : undef;
        local $current_lei = $lei;
        $lei->{failed}++;
        if (@msg) {