From 733407f67c6ca74e16e6fba2796909dbae6aefd4 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 22 Feb 2020 01:51:56 +0100
Subject: [PATCH] enable /x in all regular expressions

Enforce extended legibility as recommended by PBP page 236.
---
 barcat | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/barcat b/barcat
index 9893baf..5ba6e74 100755
--- a/barcat
+++ b/barcat
@@ -4,7 +4,7 @@ use warnings;
 use utf8;
 use List::Util qw( min max sum );
 use open qw( :std :utf8 );
-use re '/ms';
+use re '/msx';
 
 our $VERSION = '1.07';
 
@@ -17,7 +17,7 @@ GetOptions(\%opt,
 		eval {
 			local $_ = $_[1];
 			$opt{anchor} = /\A[0-9]+\z/ ? qr/(?:\S*\h+){$_}\K/ : qr/$_/;
-		} or die $@ =~ s/(?: at \N+)?\Z/ for option $_[0]/r;
+		} or die $@ =~ s/(?:\ at\ \N+)?\Z/ for option $_[0]/r;
 	},
 	'human-readable|H!',
 	'interval|t:i',
@@ -39,7 +39,7 @@ GetOptions(\%opt,
 		my ($optname, $optval) = @_;
 		$optval ||= 0;
 		($opt{hidemin}, $opt{hidemax}) =
-		$optval =~ m/\A (?: ([0-9]+)? - )? ([0-9]+)? \z/x or die(
+		$optval =~ m/\A (?: ([0-9]+)? - )? ([0-9]+)? \z/ or die(
 			"Value \"$optval\" invalid for option limit",
 			" (range expected)\n"
 		);
@@ -81,7 +81,7 @@ GetOptions(\%opt,
 		local $/;
 		my $pod = readline *DATA;
 		$pod =~ s/^=over\K/ 25/;  # indent options list
-		$pod =~ s/^=item\ \N*\n\n\N*\n\K(?:(?:^=over.*?^=back\n)?(?!=)\N*\n)*/\n/g;
+		$pod =~ s/^=item\ \N*\n\n\N*\n\K (?:(?:^=over.*?^=back\n)?(?!=)\N*\n)*/\n/g;
 		$pod =~ s/[.,](?=\n)//g;  # trailing punctuation
 		$pod =~ s/^=item\ \K(?=--)/____/g;  # align long options
 		# abbreviate <variable> indicators
-- 
2.30.0