X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=koha_perl_deps.pl;h=415728299acbad1ec47cf7f1cf781996cacc8f3b;hb=HEAD;hp=123bcd26e43753323a620a3b75867254a581f33d;hpb=ccb4517b1c05a036886df4b3cde20ac1dbef1bc4;p=srvgit

diff --git a/koha_perl_deps.pl b/koha_perl_deps.pl
index 123bcd26e4..415728299a 100755
--- a/koha_perl_deps.pl
+++ b/koha_perl_deps.pl
@@ -1,16 +1,15 @@
 #!/usr/bin/perl
 
-use Getopt::Long;
-use Pod::Usage;
-use Term::ANSIColor;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
+use Term::ANSIColor qw( color );
 use FindBin; # we need to enforce which C4::Installer is used in case more than one is installed
 
 use lib $FindBin::Bin;
 
 use C4::Installer::PerlModules;
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 my $help = 0;
 my $missing = 0;
@@ -35,7 +34,7 @@ GetOptions(
 pod2usage(1) if $help || (!$missing && !$installed && !$upgrade && !$all);
 
 my $koha_pm = C4::Installer::PerlModules->new;
-$koha_pm->version_info(all => 1);
+$koha_pm->versions_info;
 
 my @pm = ();
 
@@ -62,7 +61,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 +71,13 @@ format =
 $pm,                                          $current_version, $_->{$pm}->{'min_ver'},  $required
 .
 write;
+                    $count++;
                 }
             }
             else {
                 if (($req && $required eq 'Yes') || !$req) {
                     print "$pm\n";
+                    $count++;
                 }
             }
         }
@@ -169,12 +169,18 @@ Copyright 2010 Foundations Bible College.
 
 This file is part of Koha.
 
-Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
-Foundation; either version 2 of the License, or (at your option) any later version.
+Koha is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 3 of the License, or
+(at your option) any later version.
 
-You should have received a copy of the GNU General Public License along
-with Koha; if not, write to the Free Software Foundation, Inc.,
-51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+Koha is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 =head1 DISCLAIMER OF WARRANTY