From 11e6fa3713f7ea24f2329def3c60b32847539799 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 9 Sep 2019 19:18:03 +0200
Subject: [PATCH] customisable spark characters

Distributes over any number of unicode glyphs.  Hardcode interpreter for now
so -CA can be applied to easily decode arguments from UTF-8.
---
 barcat | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/barcat b/barcat
index 82cf7d6..442559c 100755
--- a/barcat
+++ b/barcat
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl -CA
 use 5.018;
 use warnings;
 use utf8;
@@ -47,8 +47,8 @@ GetOptions(\%opt,
 		);
 	},
 	'markers|m=s',
-	'spark!' => sub {
-		$opt{spark} = [split //, '⎽▁▂▃▄▅▆▇█'];
+	'spark:s' => sub {
+		$opt{spark} = [split //, $_[1] || '⎽▁▂▃▄▅▆▇█'];
 	},
 	'stat|s!',
 	'unmodified|u!',
-- 
2.30.0