summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/stdio.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index 0fa6bf3d7..2abe2d5c9 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -69,7 +69,7 @@ ask_fromW_begin:
print "$e->{text} $e->{label}\n";
print N("Your choice? (0/1, default `%s') ", ${$e->{val}} || '0');
my $i = readln();
- if ($i ne '') {
+ if ($i) {
to_bool($i) != to_bool(${$e->{val}}) and $common->{callbacks}{changed}->($ind);
${$e->{val}} = $i;
}
@@ -102,7 +102,7 @@ ask_fromW_begin:
print $t;
} elsif ($e->{type} eq 'entry') {
print "$e->{label} $e->{text}\n";
- print N("Your choice? (default `%s'%s) ", ${$e->{val}}, ${$e->{val}} ne '' ? N(" enter `void' for void entry") : '');
+ print N("Your choice? (default `%s'%s) ", ${$e->{val}}, ${$e->{val}} ? N(" enter `void' for void entry") : '');
my $i = readln();
${$e->{val}} = $i || ${$e->{val}};
${$e->{val}} = '' if ${$e->{val}} eq 'void';