} or warn $@, "Expect slowdown with large datasets!\n";
}
-$SIG{INT} = 'IGNORE'; # continue after assumed eof
+$SIG{INT} = sub {
+ $SIG{INT} = 'DEFAULT'; # reset for subsequent attempts
+ 'IGNORE' # continue after assumed eof
+};
my $valmatch = qr/$opt{anchor} ( \h* -? [0-9]* \.? [0-9]+ (?: e[+-]?[0-9]+ )? |)/x;
while (readline) {
git shortlog -sn | barcat -L3 -s
+Activity of the last days:
+
+ ( git log --pretty=%ci --since=30day | cut -b-10
+ seq 0 30 | xargs -i date +%F -d-{}day ) |
+ sort | uniq -c | awk '$1--' | graph
+
=head1 AUTHOR
Mischa POSLAWSKY <perl@shiar.org>