Better error statistics
authorAlexander Wirt <formorer@grml.org>
Sat, 5 May 2007 22:37:14 +0000 (00:37 +0200)
committerAlexander Wirt <formorer@grml.org>
Sat, 5 May 2007 22:37:14 +0000 (00:37 +0200)
source-report/get_sources

index 6c2cc8d..899c738 100755 (executable)
@@ -4,7 +4,7 @@
 # Authors:       grml-team (grml.org), (c) Alexander Wirt
 # Bug-Reports:   see http://grml.org/bugs/
 # License:       This file is licensed under the GPL v2.
 # Authors:       grml-team (grml.org), (c) Alexander Wirt
 # Bug-Reports:   see http://grml.org/bugs/
 # License:       This file is licensed under the GPL v2.
-# Latest change: Sa Mai 05 23:51:35 CEST 2007 [formorer]
+# Latest change: So Mai 06 00:35:39 CEST 2007 [formorer]
 ################################################################################
 
 use strict; 
 ################################################################################
 
 use strict; 
@@ -223,7 +223,7 @@ my $pnum = keys(%{$package_tree});
 my %s_hash; 
 my $errors = 0;
 foreach my $package (keys(%{$package_tree})) {
 my %s_hash; 
 my $errors = 0;
 foreach my $package (keys(%{$package_tree})) {
-       $errors++ if $package_tree->{$package}->{'status'} ne "OK"
+       $errors++ if $package_tree->{$package}->{'status'} =~ /^OK/
        if (! exists  $s_hash{ $package_tree->{$package}->{'source'} }) {
                $s_hash{$package_tree->{$package}->{'source'}} = 1; 
        }
        if (! exists  $s_hash{ $package_tree->{$package}->{'source'} }) {
                $s_hash{$package_tree->{$package}->{'source'}} = 1; 
        }