);
# if nothing is requested check "required"
-$check{r} = 1 unless defined $check{a} ||
- defined $check{l} ||
- defined $check{o} ||
- defined $check{d};
-my $default_run ='1' if $check{r}; # no parameter, therefore print a note after default run
+my $default_run;
+if (!defined $check{a}
+ && !defined $check{l}
+ && !defined $check{o}
+ && !defined $check{d}) {
+ $check{r} = 1;
+ $default_run ='1'; # no parameter, therefore print a note after default run
+}
+
if ($check{a}) {
foreach my $check (keys %check) {
$check{$check} = 1 unless defined $check{$check};
sub print_line {
my ($text, $res, $color) = @_;
- print $text, " ", ('.' x (78 - length($text) - length($res)));
- print mycolor($res, $color);
- print "\n";
- return;
+ print $text, " ", ('.' x (78 - length($text) - length($res))), " ", mycolor($res, $color), $/;
}
sub print_header {