correct space
This commit is contained in:
parent
bb62ba2a07
commit
bc4f25fde4
@ -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(
|
||||
|
||||
Loading…
Reference in New Issue
Block a user