my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
- copy($abs, $saved) or die $!;
+ my $current_st = stat($abs);
+ my $saved_st = stat($saved);
+
+ if ($current_st->mtime > $saved_st->mtime &&
+ compare($abs, $saved) != 0) {
+ print "Copying $abs to $saved...\n";
+ copy($abs, $saved) or die $!;
+ }
}
}