$NetBSD: patch-aa,v 1.1.1.1 2003/01/22 15:56:33 manu Exp $ --- check_perl_modules.pl.orig Mon Jan 13 14:33:06 2003 +++ check_perl_modules.pl Mon Jan 13 14:34:01 2003 @@ -159,9 +159,9 @@ } printf "Description: %s\n", $opt_features{$module}; print "Install module $module ? [$default]"; - my $answer = ; chomp $answer; + $answer = ""; $answer ||= $default; next unless ($answer =~ /^y$/i); CPAN::Shell->conf('inactivity_timeout', 4); CPAN::Shell->install($module);