X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=tools%2Fupdate.pl;h=624b3eb68c9f8deed9500a03b58d8eaa16531201;hb=ef68f6d3f4ac731c93d98437968afc459e6ac3c1;hp=d91e35a3e519965559c4aae9d4a07adfe0422bfd;hpb=5af643009f0cb1adc410ce4827b06a9645e4ce56;p=sugar.git

diff --git a/tools/update.pl b/tools/update.pl
index d91e35a..624b3eb 100644
--- a/tools/update.pl
+++ b/tools/update.pl
@@ -16,7 +16,14 @@ sub main {
 
         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 $!;
+        }
     }
 }