From f73baa573f52f7916dfff2fab50596aaa413f528 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 21 Nov 2022 22:35:31 +0100
Subject: [PATCH] version 1.09 before adding even more complex features

---
 barcat                           | 6 ++++--
 t/t0001-version_-a_--version.out | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/barcat b/barcat
index 7fc7f66..d93f251 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.08';
+our $VERSION = '1.09';
 
 my %opt;
 if (@ARGV) {
@@ -246,7 +246,9 @@ if ($opt{markers} and $size > 0) {
 				return sum(@order) / @order;
 			}
 			elsif ($func =~ /\A([0-9.]+)v\z/) {
-				die "Invalid marker $char: percentile $1 out of bounds\n" if $1 > 100;
+				$1 <= 100 or die(
+					"Invalid marker $char: percentile $1 out of bounds\n"
+				);
 				my $index = $#order * $1 / 100;
 				return ($order[$index] + $order[$index + .5]) / 2;
 			}
diff --git a/t/t0001-version_-a_--version.out b/t/t0001-version_-a_--version.out
index 919a823..0ba5912 100644
--- a/t/t0001-version_-a_--version.out
+++ b/t/t0001-version_-a_--version.out
@@ -1 +1 @@
-barcat =^,^= version 1.08
+barcat =^,^= version 1.09
-- 
2.30.0