r9701 - /scripts/qa/DebianQA/Classification.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Fri Nov 23 20:27:55 UTC 2007


Author: dmn
Date: Fri Nov 23 20:27:55 2007
New Revision: 9701

URL: http://svn.debian.org/wsvn/?sc=1&rev=9701
Log:
Fix dereferencing undef

Modified:
    scripts/qa/DebianQA/Classification.pm

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=9701&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Fri Nov 23 20:27:55 2007
@@ -111,7 +111,7 @@
         if($archive_latest =~ /new|incoming/) {
             $status{archive_waiting} = 1;
         }
-        if(%{$data->{bts}{$pkg}}) {
+        if($data->{bts}{$pkg} and %{$data->{bts}{$pkg}}) {
             $status{has_bugs} = 1;
         }
         my %hilight;




More information about the Pkg-perl-cvs-commits mailing list