Auto commit by The Sugar System.

[sugar.git] / tools / find-changed.pl

diff --git a/tools/find-changed.pl b/tools/find-changed.pl
index 7f9e084b22bf1a21f3721575a98176b263323864..2183f5c448fa361009e34eb881e744f0128994d3 100644 (file)
--- a/tools/find-changed.pl
+++ b/tools/find-changed.pl
@@ -8,6 +8,8 @@ use File::Spec;
 use File::Compare;
 
 sub main {
+    my $found_updated;
+
     while (defined(my $rel = <>)) {
         chomp $rel;
         my $saved = rel2saved($rel);
@@ -23,6 +25,10 @@ sub main {
             print "M $rel\n";
         }
     }
+
+    if ($found_updated) {
+        exit 1;
+    }
 }
 
 main();