Fix datetime check, clone before subtract/add

subtract/add modifies in place so we clone it.

1 files changed, 2 insertions, 2 deletions

diff --git a/ara.pl b/ara.pl
index 970e398..6779d7f 100755
--- a/ara.pl
+++ b/ara.pl
@@ -74,10 +74,10 @@ foreach my $i (0...37) {
     if ( substr( $lastupdatedtime, 0, 10 ) eq $today->dmy('/') ) {
         $update_info = "Today";
     } elsif ( substr( $lastupdatedtime, 0, 10 ) eq
-              $today->subtract( days => 1 )->dmy('/') ) {
+              $today->clone->subtract( days => 1 )->dmy('/') ) {
         $update_info = "Yesterday";
     } elsif ( substr( $lastupdatedtime, 0, 10 ) eq
-              $today->add( days => 1 )->dmy('/') ) {
+              $today->clone->add( days => 1 )->dmy('/') ) {
         $update_info = "Tomorrow"; # Hopefully we don't see this.
     } else {
         $update_info =