diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-20 14:39:19 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-20 14:39:19 +0000 |
| commit | c6a6010149afb7f4b77555f8eae14b57ed7efef0 (patch) | |
| tree | e91481c2106f3a534c678663b83119ec5da323d0 /perl-install/interactive | |
| parent | 8da87f8235fb6a89a93402394dbad1401e1f006f (diff) | |
| download | drakx-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.pm | 4 |
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'; |