From 0466a1e52a47bd955e157dbfe19d4199f3a60d43 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sun, 19 Jun 2016 11:38:18 +1200
Subject: Ignore well-meaning -before- critique

---
 urxvt/ext/selection | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'urxvt/ext')

diff --git a/urxvt/ext/selection b/urxvt/ext/selection
index be787ca6..edc1a1bb 100644
--- a/urxvt/ext/selection
+++ b/urxvt/ext/selection
@@ -65,7 +65,8 @@ sub on_sel_extend {
     # whole line
     push @matches, [ 0, ( $line->end - $line->beg + 1 ) * $self->ncol ];
 
-    for ( sort { $a->[1] <=> $b->[1] or $b->[0] <=> $a->[0] } @matches ) {
+    for ( sort { $a->[1] <=> $b->[1] or $b->[0] <=> $a->[0] } @matches )
+    {    ## no critic (ProhibitReverseSortBlock)
         my ( $ofs, $len ) = @{$_};
 
         next if $len <= $curlen;
-- 
cgit v1.2.3