From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 1 Nov 2022 18:43:50 +0000 (+0100)
Subject: version 1.08 with extra cat
X-Git-Tag: v1.08
X-Git-Url: http://git.shiar.nl/barcat.git/commitdiff_plain/2bf96f1ac810eeec505dd404d221fcc1041c8caf

version 1.08 with extra cat
---

diff --git a/barcat b/barcat
index da09547..095ee93 100755
--- a/barcat
+++ b/barcat
@@ -6,7 +6,7 @@ use List::Util qw( min max sum );
 use open qw( :std :utf8 );
 use re '/msx';
 
-our $VERSION = '1.07';
+our $VERSION = '1.08';
 
 my %opt;
 if (@ARGV) {
@@ -79,8 +79,9 @@ GetOptions(\%opt,
 	'signal-stat=s',
 	'unmodified|u!',
 	'width|w=i',
-	'version' => sub {
-		say "barcat version $VERSION";
+	'version|V' => sub {
+		my $mascot = $opt{ascii} ? '=^,^=' : 'ฅ^•ﻌ•^ฅ';
+		say "barcat $mascot version $VERSION";
 		exit;
 	},
 	'usage|h' => sub {
@@ -380,14 +381,14 @@ Options:
       --value-length=SIZE  Reserved space for numbers
   -w, --width=COLUMNS      Override the maximum number of columns to use
   -h, --usage              Overview of available options
-      --help               Full documentation
-      --version            Version information
+      --help               Full pod documentation
+  -V, --version            Version information
 
 =encoding utf8
 
 =head1 NAME
 
-barcat - graph to visualize input values
+barcat - concatenate texts with graph to visualize values
 
 =head1 SYNOPSIS
 
@@ -563,10 +564,10 @@ Overview of available options.
 
 =item --help
 
-Full documentation
-rendered by perldoc.
+Full pod documentation
+as rendered by perldoc.
 
-=item --version
+=item -V, --version
 
 Version information.
 
diff --git a/t/t0001-version_--version.out b/t/t0001-version_--version.out
deleted file mode 100644
index 53160db..0000000
--- a/t/t0001-version_--version.out
+++ /dev/null
@@ -1 +0,0 @@
-barcat version 1.07
diff --git a/t/t0001-version_-a_--version.out b/t/t0001-version_-a_--version.out
new file mode 100644
index 0000000..919a823
--- /dev/null
+++ b/t/t0001-version_-a_--version.out
@@ -0,0 +1 @@
+barcat =^,^= version 1.08