correct space

This commit is contained in:
Jonas Meier 2020-05-17 23:14:39 +02:00
parent bb62ba2a07
commit bc4f25fde4

View File

@ -15,11 +15,10 @@ my $rsync_dst;
my $age;
GetOptions ("source=s" => \$rsync_src,
"destination=s" => \$rsync_dst,
"age=i" => \$age)
"destination=s" => \$rsync_dst,
"age=i" => \$age)
or die("Error. Wrong arguments!\n");
my $now = DateTime->now();
my $cutoff_timestamp = $now - DateTime::Duration->new(days => $age);
my $parser = DateTime::Format::Strptime->new(