X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f207efd1ad8835c046c2945c3d0d693626622521..0b34e29fb04ad9ac9912f67b767f9f401700ca97:/scripts/installation_check.pl

diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl
index 1b645733c..f7c76fb7c 100755
--- a/scripts/installation_check.pl
+++ b/scripts/installation_check.pl
@@ -71,9 +71,7 @@ if (!defined $check{a}
 }
 
 if ($check{a}) {
-  foreach my $check (keys %check) {
-    $check{$check} = 1 unless defined $check{$check};
-  }
+  $check{$_} //= 1 for qw(o d l r);
 }
 
 
@@ -123,7 +121,7 @@ EOL
   }
 }
 
-if (@missing_modules && $apt && !$check{s}) {
+if (@missing_modules && ($check{a} || $apt && !$check{s})) {
   print "\nHere are some sample installation lines, choose one appropriate for your system:\n\n";
   local $Text::Wrap::separator = " \\\n";
 
@@ -273,12 +271,12 @@ sub print_result {
 
 sub print_line {
   my ($text, $res, $color) = @_;
-  return if $check{s};
+  return if $check{s} && !$check{a};
   print $text, " ", ('.' x (78 - length($text) - length($res))), " ", mycolor($res, $color), $/;
 }
 
 sub print_header {
-  return if $check{s};
+  return if $check{s} && !$check{a};
   print $/;
   print "$_[0]:", $/;
 }