From da718a3c5dbdbde6b33b9430de69a078b1b27223 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 17 Oct 2022 10:16:34 +0100
Subject: whitespace

---
 challenge-187/james-smith/perl/ch-1.pl | 2 +-
 challenge-187/james-smith/perl/ch-2.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-187/james-smith/perl/ch-1.pl b/challenge-187/james-smith/perl/ch-1.pl
index a79e0c55ad..320dfc1da2 100644
--- a/challenge-187/james-smith/perl/ch-1.pl
+++ b/challenge-187/james-smith/perl/ch-1.pl
@@ -20,7 +20,7 @@ is( days_together($_->[0],$_->[1]), $_->[2] ) foreach @TESTS;
 done_testing();
 
 sub days_together {
-  sub { $_>[1]<$_[0] ? 0 : $_[1]-$_[0]+1 }->(
+  sub { $_[1]<$_[0] ? 0 : $_[1]-$_[0]+1 }->(
     sub { ( $_[2]>$_[0]?$_[2]:$_[0], $_[3]<$_[1]?$_[3]:$_[1] ) }->(
       map { [ 0,0,31,59,90,120,151,181,212,243,273,304,334 ]->[substr $_,3] + substr$_,0,2 }
       map { @{$_} }
diff --git a/challenge-187/james-smith/perl/ch-2.pl b/challenge-187/james-smith/perl/ch-2.pl
index 18d5af1e0c..e08218ad26 100644
--- a/challenge-187/james-smith/perl/ch-2.pl
+++ b/challenge-187/james-smith/perl/ch-2.pl
@@ -20,7 +20,7 @@ is( "@{[magical(@{$_->[0]})]}", $_->[1] ) foreach @TESTS;
 done_testing();
 
 sub magical {
-  @_ = sort { $b<=>$a } @_;
+  @_ = sort { $b <=> $a } @_;
   my @max = (0);
   while(@_>2) {
     my($a,$b,@c)=@_;
-- 
cgit