From b37f6d5348a83bbdd0f3594e8fbceaedbf4da59d Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Tue, 10 Jun 2003 00:18:59 -0800
Subject: [PATCH] [project @ 2003-06-10 01:18:59 by cjwatson] ... but do
 construct bug component filenames that don't exist yet, since they're
 probably new bugs. Sigh. That was a rather crucial corner case.

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

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index fe7aceea..a5b7a724 100755
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.30 2003/06/10 00:59:36 cjwatson Exp $
+# $Id: errorlib.in,v 1.31 2003/06/10 01:18:59 cjwatson Exp $
 
 sub F_SETLK { 6; } sub F_WRLCK{ 1; }
 $flockstruct= 'sslll'; # And there ought to be something for this too.
@@ -55,7 +55,8 @@ sub getbugcomponent {
 	# archived bugs but most of the backend scripts don't. For now,
 	# anything that is prepared to accept archived bugs should call
 	# getbuglocation() directly first.
-	return undef unless $location eq 'db' or $location eq 'db-h';
+	return undef if defined $location and
+			($location ne 'db' and $location ne 'db-h');
     }
     my $dir = getlocationpath($location);
     return undef unless $dir;
-- 
2.39.5