From ae1e7ac4ad473db4327923280fb61bc87dde6392 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sun, 19 Jun 2016 11:31:23 +1200
Subject: Perl::Tidy run

---
 urxvt/ext/selection | 76 +++++++++++++++++++++++++++--------------------------
 1 file changed, 39 insertions(+), 37 deletions(-)

diff --git a/urxvt/ext/selection b/urxvt/ext/selection
index 43b72e89..d09eaf19 100644
--- a/urxvt/ext/selection
+++ b/urxvt/ext/selection
@@ -15,60 +15,62 @@ use Carp;
 our $VERSION = 1.0;
 
 sub on_init {
-   my ($self) = @_;
+    my ($self) = @_;
 
-   if (defined (my $res = $self->resource ("cutchars"))) {
-      $res = $self->locale_decode ($res);
-      push @{ $self->{patterns} }, qr{\G [\Q$res\E[:space:]]* ([^\Q$res\E[:space:]]+) }x;
-   }
+    if ( defined( my $res = $self->resource("cutchars") ) ) {
+        $res = $self->locale_decode($res);
+        push @{ $self->{patterns} },
+          qr{\G [\Q$res\E[:space:]]* ([^\Q$res\E[:space:]]+) }x;
+    }
 
-   $self->{enabled} = 1;
+    $self->{enabled} = 1;
 
-   return ();
+    return ();
 }
 
 sub on_sel_extend {
-   my ($self, $time) = @_;
+    my ( $self, $time ) = @_;
 
-   $self->{enabled}
+    $self->{enabled}
       or return;
 
-   my ($row, $col) = $self->selection_mark;
-   my $line = $self->line ($row);
-   my $text = $line->t;
-   my $markofs = $line->offset_of ($row, $col);
-   my $curlen  = $line->offset_of ($self->selection_end)
-               - $line->offset_of ($self->selection_beg);
+    my ( $row, $col ) = $self->selection_mark;
+    my $line    = $self->line($row);
+    my $text    = $line->t;
+    my $markofs = $line->offset_of( $row, $col );
+    my $curlen =
+      $line->offset_of( $self->selection_end ) -
+      $line->offset_of( $self->selection_beg );
 
-   my @matches;
+    my @matches;
 
-   if ($markofs < $line->l) {
-      study $text; # _really_ helps, too :)
+    if ( $markofs < $line->l ) {
+        study $text;    # _really_ helps, too :)
 
-      for my $regex ( @{ $self->{patterns} }) {
-         while ($text =~ /$regex/g) {
-            if ($-[1] <= $markofs and $markofs <= $+[1]) {
-               my $ofs = $-[1];
-               my $match = $1;
+        for my $regex ( @{ $self->{patterns} } ) {
+            while ( $text =~ /$regex/g ) {
+                if ( $-[1] <= $markofs and $markofs <= $+[1] ) {
+                    my $ofs   = $-[1];
+                    my $match = $1;
 
-               push @matches, [$ofs, length $match];
+                    push @matches, [ $ofs, length $match ];
+                }
             }
-         }
-      }
-   }
+        }
+    }
 
-   # whole line
-   push @matches, [0, ($line->end - $line->beg + 1) * $self->ncol];
+    # whole line
+    push @matches, [ 0, ( $line->end - $line->beg + 1 ) * $self->ncol ];
 
-   for (sort { $a->[1] <=> $b->[1] or $b->[0] <=> $a->[0] } @matches) {
-      my ($ofs, $len) = @$_;
+    for ( sort { $a->[1] <=> $b->[1] or $b->[0] <=> $a->[0] } @matches ) {
+        my ( $ofs, $len ) = @$_;
 
-      next if $len <= $curlen;
+        next if $len <= $curlen;
 
-      $self->selection_beg ($line->coord_of ($ofs));
-      $self->selection_end ($line->coord_of ($ofs + $len));
-      return 1;
-   }
+        $self->selection_beg( $line->coord_of($ofs) );
+        $self->selection_end( $line->coord_of( $ofs + $len ) );
+        return 1;
+    }
 
-   return ();
+    return ();
 }
-- 
cgit v1.2.3