tools/find-missing.pl

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

diff --git a/tools/find-missing.pl b/tools/find-missing.pl
new file mode 100644 (file)
index 0000000..552b77b
--- /dev/null
+++ b/tools/find-missing.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Smart::Comments;
+
+sub main {
+    while (defined(my $rel = <>)) {
+        chomp $rel;
+        my $saved = rel2saved($rel);
+
+        if (!-e $saved) {
+            print "? $rel\n";
+        }
+    }
+}
+
+sub rel2saved {
+    my $rel = shift;
+
+    $rel =~ tr/./_/;
+    return "./dot-files/$rel";
+}
+
+main();