perltidy

1 files changed, 6 insertions, 4 deletions

diff --git a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
index 7e875476..d8067148 100644
--- a/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
+++ b/lib/perl5/Local/MrRepo/Repo/Git/Annex.pm
@@ -94,7 +94,7 @@ sub review_unused {
         print "\n";
     }
 
-    my ($uuid) = $self->git->config("remote.".$opts{from}.".annex-uuid")
+    my ($uuid) = $self->git->config("remote." . $opts{from} . ".annex-uuid")
       if defined $opts{from};
 
     my $i = 0;
@@ -148,7 +148,8 @@ sub review_unused {
                     my @opts = ('y', 'n');
                     push @opts, 'o' if defined $contentlocation;
                     push @opts, ('d', 'b') if $i > 0;
-                    print "Drop this unused files?  (".join('/', @opts).") ";
+                    print "Drop this unused files?  ("
+                      . join('/', @opts) . ") ";
 
                     # Term::ReadKey docs recommend ReadKey(-1) but
                     # that means we need an infinite loop calling
@@ -171,7 +172,8 @@ sub review_unused {
                         system('xdg-open', $contentlocation);
                     } elsif ($response eq 'b' and $i > 0) {
                         pop @to_drop
-                          if @to_drop and $to_drop[$#to_drop] eq
+                          if @to_drop
+                          and $to_drop[$#to_drop] eq
                           $unused_files[--$i]->{number};
                         next UNUSED;
                     } elsif ($response eq 'd' and $i > 0) {
@@ -242,7 +244,7 @@ sub unused_files {
               { number => $1, key => $2, bad => $bad, tmp => $tmp };
         }
     }
-    $self->{_unused_files}->{timestamp}   = time();
+    $self->{_unused_files}->{timestamp} = time();
     $self->_store_unused();
     return $self->{_unused_files}->{unused};
 }