summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-20 14:39:19 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-20 14:39:19 +0000
commitc6a6010149afb7f4b77555f8eae14b57ed7efef0 (patch)
treee91481c2106f3a534c678663b83119ec5da323d0 /perl-install/interactive
parent8da87f8235fb6a89a93402394dbad1401e1f006f (diff)
downloaddrakx-c6a6010149afb7f4b77555f8eae14b57ed7efef0.tar
drakx-c6a6010149afb7f4b77555f8eae14b57ed7efef0.tar.gz
drakx-c6a6010149afb7f4b77555f8eae14b57ed7efef0.tar.bz2
drakx-c6a6010149afb7f4b77555f8eae14b57ed7efef0.tar.xz
drakx-c6a6010149afb7f4b77555f8eae14b57ed7efef0.zip
s/$x ne (0|'')/$x/
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';