Auto commit by The Sugar System.

[sugar.git] / tools / update.pl

diff --git a/tools/update.pl b/tools/update.pl
index d91e35a3e519965559c4aae9d4a07adfe0422bfd..624b3eb68c9f8deed9500a03b58d8eaa16531201 100644 (file)
--- 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 $!;
+        }
     }
 }