From 12521a4a51c5e082cacf085263f06bf838e0a839 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Thu, 5 Jun 2003 07:54:31 -0800
Subject: [PATCH] [project @ 2003-06-05 08:54:31 by cjwatson] getbuglocation()
 should find bugs in db-h in preference to bugs in db. This makes migration
 from older versions easier, since you can just leave the db directory there
 until everything works.

---
 scripts/errorlib.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index 32942581..b799bc6e 100755
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.27 2003/05/31 14:24:58 cjwatson Exp $
+# $Id: errorlib.in,v 1.28 2003/06/05 08:54:31 cjwatson Exp $
 
 sub F_SETLK { 6; } sub F_WRLCK{ 1; }
 $flockstruct= 'sslll'; # And there ought to be something for this too.
@@ -30,8 +30,8 @@ sub getbuglocation {
     my ( $bugnum, $ext ) = @_;
     my $archdir = sprintf "%02d", $bugnum % 100;
     return 'archive' if ( -r "$gSpoolDir/archive/$archdir/$bugnum.$ext" );
-    return 'db' if ( -r "$gSpoolDir/db/$bugnum.$ext" );
     return 'db-h' if ( -r "$gSpoolDir/db-h/$archdir/$bugnum.$ext" );
+    return 'db' if ( -r "$gSpoolDir/db/$bugnum.$ext" );
     return undef;
 }
 
-- 
2.39.5