*narf* fix errorhandling again ;)
authorAlexander Wirt <formorer@grml.org>
Sun, 6 May 2007 16:48:47 +0000 (18:48 +0200)
committerAlexander Wirt <formorer@grml.org>
Sun, 6 May 2007 16:48:47 +0000 (18:48 +0200)
source-report/get_sources

index 0b6eaf3..4d765bf 100755 (executable)
@@ -250,7 +250,7 @@ my $pnum = keys(%{$package_tree});
 my %s_hash; 
 my $errors = 0;
 foreach my $package (keys(%{$package_tree})) {
-       $errors++ if $package_tree->{$package}->{'status'} =~ /^OK/; 
+       $errors++ if $package_tree->{$package}->{'status'} !~ /^OK/; 
        if (! exists  $s_hash{ $package_tree->{$package}->{'source'} }) {
                $s_hash{$package_tree->{$package}->{'source'}} = 1; 
        }