From 1d9a4b73a37c6e942f909c2d42ca13b5c47e8362 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 5 Apr 2005 19:41:54 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'V10_2_20mdk'.

---
 move/tools/check-fc-cache.pl | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 move/tools/check-fc-cache.pl

(limited to 'move/tools/check-fc-cache.pl')

diff --git a/move/tools/check-fc-cache.pl b/move/tools/check-fc-cache.pl
deleted file mode 100644
index 42902835f..000000000
--- a/move/tools/check-fc-cache.pl
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-# check if files are more recent (fc-cache will slow down starting of drakx)
-
-use MDK::Common;
-
-sub stat_ {
-    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $_[0];
-    max($mtime, $ctime);
-}
-
-my $prefix = $ARGV[0] || '/tmp/live_tree';
-
-my @conf = cat_("$prefix/etc/fonts/fonts.conf");
-
-foreach my $line (@conf) {
-    while ($line =~ m|<dir>([^<]+)</dir|g) {
-        my $dir = $1;
-        $dir =~ m|^/| or next;
-        print "dir $prefix$dir\n";
-        foreach my $d (chomp_(`find $prefix$dir -type d 2>/dev/null`)) {
-            my $ref = stat_("$d/fonts.cache-1");
-            stat_($_) > $ref and print "\t$_\n" foreach glob("$d/*");
-        }
-    }
-}
-
-- 
cgit v1.2.1