From 7344ad36c4219bf6732b5a970640f7c6a52cc213 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 9 Aug 2008 11:30:30 -0700
Subject: [PATCH 1/1]  * allow the location to be undef; assume that such a bug
 is unarchived

---
 Debbugs/Status.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 1a5e7ae..44eff9b 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -251,7 +251,7 @@ sub read_bug{
     # Add log last modified time
     $data{log_modified} = (stat($log))[9];
     $data{location} = $location;
-    $data{archived} = $location eq 'archive';
+    $data{archived} = defined($location) and $location eq 'archive';
     $data{bug_num} = $param{bug};
 
     return \%data;
-- 
2.39.2