-#!/usr/bin/env perl
+#!/usr/bin/perl -CA
use 5.018;
use warnings;
use utf8;
);
},
'markers|m=s',
- 'spark!' => sub {
- $opt{spark} = [split //, '⎽▁▂▃▄▅▆▇█'];
+ 'spark:s' => sub {
+ $opt{spark} = [split //, $_[1] || '⎽▁▂▃▄▅▆▇█'];
},
'stat|s!',
'unmodified|u!',