X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=koha_perl_deps.pl;h=54e6de0b75c04ea924ca30bd7d997d8b516b17f9;hb=5d6c092921919526ade501facb1220f8a108a08f;hp=123bcd26e43753323a620a3b75867254a581f33d;hpb=0a0f311cc0eaf3f70696ff3a5f4473acb35b86fa;p=koha_fer

diff --git a/koha_perl_deps.pl b/koha_perl_deps.pl
index 123bcd26e4..54e6de0b75 100755
--- a/koha_perl_deps.pl
+++ b/koha_perl_deps.pl
@@ -62,7 +62,6 @@ foreach my $type (@pm) {
             print color 'yellow' if $type eq 'upgrade_pm' && $color;
             print color 'red' if $type eq 'missing_pm' && $color;
             print color 'green' if $type eq 'current_pm' && $color;
-            $count++;
             my $required = ($_->{$pm}->{'required'}?'Yes':'No');
             my $current_version = ($color ? $_->{$pm}->{'cur_ver'} :
                                    $type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'});
@@ -73,11 +72,13 @@ format =
 $pm,                                          $current_version, $_->{$pm}->{'min_ver'},  $required
 .
 write;
+                    $count++;
                 }
             }
             else {
                 if (($req && $required eq 'Yes') || !$req) {
                     print "$pm\n";
+                    $count++;
                 }
             }
         }