From 5169e6a8414877111894dc77b9619dfc365b38f2 Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <k@k5.linux.bogus>
Date: Thu, 19 Mar 2009 04:48:22 +0100
Subject: [PATCH] short file lisdt to be added

---
 bin/rrr-dirtyupdate | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/bin/rrr-dirtyupdate b/bin/rrr-dirtyupdate
index 1689ed8..a97747f 100644
--- a/bin/rrr-dirtyupdate
+++ b/bin/rrr-dirtyupdate
@@ -78,12 +78,17 @@ my $sleep = 2;
 warn "prove of concept for one file only. Last chance to hit ^C now to interrupt. sleeping $sleep";
 sleep $sleep;
 
-# /id/M/MU/MUIR/modules/IO-Event-0.701.meta
-# /id/M/MU/MUIR/modules/IO-Event-0.603.meta
-$rf->update("/home/ftp/pub/PAUSE/authors/id/M/MU/MUIR/modules/IO-Event-0.701.meta","delete");
-$rf->update("/home/ftp/pub/PAUSE/authors/id/M/MU/MUIR/modules/IO-Event-0.603.meta","delete");
-for my $file ("/home/ftp/pub/PAUSE/authors/id/T/TO/TOMC/scripts/boxit.gz",
-              "/home/ftp/pub/PAUSE/authors/id/T/TO/TOMC/scripts/sortbylen.gz") {
+my @files = qw(
+/home/ftp/pub/PAUSE/authors/id/T/TO/TOMC/scripts/cptimes.gz
+/home/ftp/pub/PAUSE/authors/id/T/TO/TOMC/scripts/words.gz
+/home/ftp/pub/PAUSE/authors/id/T/TO/TOMC/scripts/slowcat.gz
+/home/ftp/pub/PAUSE/authors/id/M/MU/MUIR/perl4/simplify.pl.gz
+/home/ftp/pub/PAUSE/authors/id/M/MU/MUIR/perl4/dirname.pl.gz
+/home/ftp/pub/PAUSE/authors/id/M/MU/MUIR/perl4/check_lock.pl.gz
+/home/ftp/pub/PAUSE/authors/id/M/MU/MUIR/perl4/locks.pl.gz
+);
+
+for my $file (@files) {
     my @stat = stat $file or die "Couldn't stat '$file': $!";
     my $mtime = $stat[9];
     $rf->update($file,"new",$mtime);
-- 
2.11.4.GIT