X-Git-Url: http://git.shiar.nl/barcat.git/blobdiff_plain/fdfa9b67c2e09cafbd06b20c23b51b48d99b9021..160ad46ac34e34834b8fb128092f6e4942dd072e:/barcat diff --git a/barcat b/barcat index d7361a1..1b7cd21 100755 --- a/barcat +++ b/barcat @@ -47,7 +47,7 @@ GetOptions(\%opt, $opt{'graph-format'} = substr $_[1], 0, 1; }, 'spark:s' => sub { - $opt{spark} = [split //, $_[1] || '⎽▁▂▃▄▅▆▇█']; + $opt{spark} = [split //, $_[1] || '▁▂▃▄▅▆▇█']; }, 'stat|s!', 'signal-stat=s', @@ -94,6 +94,7 @@ $SIG{ALRM} = sub { show_lines(); alarm $opt{interval} if defined $opt{interval} and $opt{interval} > 0; }; +$SIG{INT} = \&show_exit; if (defined $opt{interval}) { $opt{interval} ||= 1; @@ -105,12 +106,6 @@ if (defined $opt{interval}) { } or warn $@, "Expect slowdown with large datasets!\n"; } -$SIG{INT} = sub { - $SIG{INT} = 'DEFAULT'; # reset for subsequent attempts - exit if !$.; - 'IGNORE' # continue after assumed eof -}; - my $valmatch = qr/$opt{anchor} ( \h* -? [0-9]* \.? [0-9]+ (?: e[+-]?[0-9]+ )? |)/x; while (readline) { s/\r?\n\z//; @@ -221,7 +216,6 @@ continue { say '' if $opt{spark}; } -show_lines(); sub show_stat { if ($opt{hidemin} or $opt{hidemax}) { @@ -241,7 +235,15 @@ sub show_stat { } say ''; } -show_stat() if $opt{stat}; + +sub show_exit { + show_lines(); + show_stat() if $opt{stat}; + exit 130 if @_; # 0x80+signo + exit; +} + +show_exit(); __END__ =encoding utf8