r8904 - /scripts/qa/qareport

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Tue Nov  6 10:01:28 2007
New Revision: 8904

URL: http://svn.debian.org/wsvn/?sc=1&rev=8904
Log:
couple of fixes

Modified:
    scripts/qa/qareport

Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8904&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Tue Nov  6 10:01:28 2007
@@ -33,7 +33,9 @@
 }
 
 my $data = read_cache(consolidated => "");
-my @pkglist = get_pkglist();
+my @pkglist = @dirs;
+ at pkglist = get_pkglist() unless(@pkglist);
+
 foreach my $pkg (@pkglist) {
     next if($pkg =~ /^\//);
     my $svnpath = $data->{svn}{$pkg}{dir};
@@ -51,7 +53,7 @@
     my $archver = $data->{archive}{$pkg}{most_recent} || "Not uploaded";
     print "Archive: $archver ";
 
-    my $uver = $data->{watch}{$pkg}{upstream_ver};
+    my $uver = $data->{watch}{$pkg}{upstream_ver} || "Unknown";
     print "Upstream: $uver\n";
 
     my @bugs = @{$data->{bts}{$pkg}};