From c6a6010149afb7f4b77555f8eae14b57ed7efef0 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 20 Nov 2002 14:39:19 +0000 Subject: s/$x ne (0|'')/$x/ --- perl-install/interactive/stdio.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/interactive') 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'; -- cgit v1.2.1