X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=tools%2Flist-files.pl;h=7b5de8e4ffd1812cef2347c276254ae9adac4138;hb=f4929d6c3be863093718270ccd9da8ff1d172ebf;hp=2059c9e5e6adbe043217ba522b404440f3eee5a3;hpb=1326b9b57e53f03dce3aa4fa9db9f28c9b91a9ee;p=sugar.git

diff --git a/tools/list-files.pl b/tools/list-files.pl
index 2059c9e..7b5de8e 100644
--- a/tools/list-files.pl
+++ b/tools/list-files.pl
@@ -4,18 +4,22 @@ use Smart::Comments;
 use List::MoreUtils qw(any);
 use File::Spec;
 
-my @RE_IGNORED = map {
-    s/\./\\./g;
-    s/\+/\\+/g;
-
-    s/\?/.?/g;
-    s/\*/.*?/g;
-
-    qr/^$_$/;
-  }
-  grep {length}
-  map  {tr/\n//d; $_}
-  <DATA>;
+my @RE_IGNORED = do {
+    open my $fh, '<', 'IGNORE' or die $!;
+    map {
+        s/\./\\./g;
+        s/\+/\\+/g;
+
+        s/\?/.?/g;
+        s/\*/.*?/g;
+
+        qr/^$_$/;
+      }
+      grep {length}
+      map  {s/^\s*#//; $_}
+      map  {tr/\n//d; $_}
+      <$fh>;
+};
 
 main();
 
@@ -55,70 +59,3 @@ sub find {
     }
     @d;
 }
-
-__DATA__
-*~
-.*cache*
-.*history*
-.CFUserTextEncoding
-.DS_Store
-.ICEauthority
-.MacOSX
-.Trash
-.Xauthority
-.cabal
-.cpan
-.dbus
-.dvdcss
-.easytag
-.elisp
-.esd_auth
-.emacs.d
-.eshell
-.firefox
-.fontconfig*
-.fonts
-.gconf*
-.gimp*
-.glimpse*
-.gnome2*
-.gnucash
-.gnupg
-.gstreamer-0.10
-.htpasswd
-.ido.last*
-.jungledisk*
-.kde
-.localized
-.mozilla
-.mpd
-.mplayer/DVDKeys*
-.mplayer/skins*
-.nautilus
-.navi2ch/*.net
-.navi2ch/*.com
-.nh-todo
-.pan
-.projects.ede
-.qt
-.recently-used*
-.rnd
-.s9x
-.scribus
-.skk-*
-.snes*
-.ssh
-.thumbnails
-.tome
-.trackballs
-.uim.d
-.unison
-.viminfo
-.w3m/bookmark.bak.html
-.w3m/config
-.w3m/*arrived
-.w3m/*cookie
-.w3m/*sessions
-.xchat2*
-.zcomp*
-.zfunc