From 9d6096baa58148578578e1b40bd1767234a9ddbd Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sat, 17 Apr 2004 16:31:04 -0800
Subject: [PATCH] [project @ 2004-04-17 17:31:04 by cjwatson] Fix summary
 ordering (discovered during nCipher upgrade).

---
 scripts/summary.in | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/scripts/summary.in b/scripts/summary.in
index e3be347d..a1be6978 100755
--- a/scripts/summary.in
+++ b/scripts/summary.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: summary.in,v 1.10 2003/08/23 15:12:57 cjwatson Exp $
+# $Id: summary.in,v 1.11 2004/04/17 17:31:04 cjwatson Exp $
 
 $config_path = '/etc/debbugs';
 $lib_path = '/usr/lib/debbugs';
@@ -35,13 +35,14 @@ close(M);
 defined($startdate= time) || &quit("failed to get time: $!");
 
 opendir(DIR,"db-h") || &quit("opendir db-h: $!\n");
-@dirs = sort { $a <=> $b } grep(s,^,db-h/,, grep(m/^\d+$/,readdir(DIR)));
+@dirs = grep(s,^,db-h/,, grep(m/^\d+$/,readdir(DIR)));
 closedir(DIR);
 foreach my $dir (@dirs) {
         opendir(DIR,$dir);
-        push @list, sort { $a <=> $b } grep(s/\.summary$//,grep(m/^\d+\.summary$/,readdir(DIR)));
+        push @list, grep(s/\.status$//,grep(m/^\d+\.status$/,readdir(DIR)));
         closedir(DIR);
 }
+@list = sort { $a <=> $b } @list;
 
 $head= $mode eq 'bymaint'
     ? ' Package     Ref    Subject'
-- 
2.39.5