From e5e5e3155e4c4b3f51415d08a324f84142e91f3d Mon Sep 17 00:00:00 2001 From: Greg Barniskis Date: Mon, 26 Sep 2011 12:07:20 -0500 Subject: [PATCH] Bug 6915 - [SIGNED-OFF] reduce module name truncation problem in koha_perl_deps.pl Widen module name allowance in the format statement, adjust other columns to be generous but not-so-much as before, modify report header and footer print statements to align and clarify. Very very long module names or version numbers are still subject to possible truncation. Signed-off-by: Magnus Enger Sign off comment: With this patch module names are not truncated, which is an improvement. Lines are still too long to fit an 80 column display, and so they wrap around, but tht is a minor annoyance compared to the truncated names. Signed-off-by: Paul Poulain Signed-off-by: Chris Cormack --- koha_perl_deps.pl | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/koha_perl_deps.pl b/koha_perl_deps.pl index 934dea58e6..c5b614ec3d 100755 --- a/koha_perl_deps.pl +++ b/koha_perl_deps.pl @@ -41,8 +41,9 @@ push @pm, 'current_pm' if $installed || $all; print color 'bold white' if $color; print" -Module Name Current Version Required Version Module Required --------------------------------------------------------------------------------------------------------------------------- + Installed Required Module is +Module Name Version Version Required +-------------------------------------------------------------------------------------------- "; my $count = 0; @@ -60,8 +61,8 @@ foreach my $type (@pm) { my $current_version = ($color ? $_->{$pm}->{'cur_ver'} : $type eq 'missing_pm' || $type eq 'upgrade_pm' ? $_->{$pm}->{'cur_ver'}." *" : $_->{$pm}->{'cur_ver'}); format = -@<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<<<< @<<<<< -$pm, $current_version, $_->{$pm}->{'min_ver'}, $required +@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<< +$pm, $current_version, $_->{$pm}->{'min_ver'}, $required . write; } @@ -69,8 +70,8 @@ write; } print color 'bold white' if $color; my $footer = " --------------------------------------------------------------------------------------------------------------------------- -Total modules reported: $count "; +-------------------------------------------------------------------------------------------- +Total modules reported: $count "; if ($color) { $footer .= "\n\n"; -- 2.39.5