updated ch-1.pl

1 files changed, 1 insertions, 1 deletions

diff --git a/challenge-039/adam-russell/perl/ch-1.pl b/challenge-039/adam-russell/perl/ch-1.pl
index 645fbd42de..027500c438 100644
--- a/challenge-039/adam-russell/perl/ch-1.pl
+++ b/challenge-039/adam-russell/perl/ch-1.pl
@@ -45,7 +45,7 @@ while(my $line = <DATA>){
         ){
         $lights_on -> add_duration($out->subtract_datetime($start_time));
     } 
-    $start_time = $out; 
+    $start_time = $out if (DateTime->compare($start_time, $out) < 0); 
 } 
 print $lights_on->hours() . " hours "; 
 print $lights_on->minutes() . " minutes\n";