* fix archived for undef location

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 44eff9ba212b13be096c5564a125fce8e5786efb..3b3961f90667ec7cbf654a371f49aa8d9399ad6d 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} = defined($location) and $location eq 'archive';
+    $data{archived} = (defined($location) and ($location eq 'archive'))?1:0;
     $data{bug_num} = $param{bug};
 
     return \%data;