From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 24 Jan 2020 20:59:05 +0000 (+0100)
Subject: ignore interval option without input file
X-Git-Tag: v1.07~17
X-Git-Url: http://git.shiar.net/barcat.git/commitdiff_plain/97da4d68eddd9d66e30a73978afe2ad2f08364a7

ignore interval option without input file
---

diff --git a/barcat b/barcat
index 3df9408..144b624 100755
--- a/barcat
+++ b/barcat
@@ -111,7 +111,8 @@ $opt{'value-length'} = 1 if $opt{unmodified};
 $opt{'signal-stat'} //= exists $SIG{INFO} ? 'INFO' : 'QUIT';
 $opt{markers} //= '=avg >31.73v <68.27v +50v |0';
 $opt{palette} //= $opt{color} && [31, 90, 32];
-$opt{input} = @ARGV && $ARGV[0] =~ m/\A[-0-9]/ ? \@ARGV : undef;
+$opt{input} = @ARGV && $ARGV[0] =~ m/\A[-0-9]/ ? \@ARGV : undef
+	and undef $opt{interval};
 
 my (@lines, @values, @order);