* allow the location to be undef; assume that such a bug is unarchived

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 1a5e7aeea6fe3d5ad4b01e5f5a8eb88502b22ab1..44eff9ba212b13be096c5564a125fce8e5786efb 100644 (file)
--- 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;