--- Inline-0.44/C/Makefile.PL-	2002-10-28 18:26:08 +0000
+++ Inline-0.44/C/Makefile.PL	2004-05-17 11:46:22 +0000
@@ -55,13 +55,7 @@
 # '
 }
 
-my $answer = '';
-my $default = $found ? "y" : "n";
-while (1) {
-    $answer = prompt ('Do you want to install Inline::C?', $default); 
-    last if $answer =~ /^(y|yes|n|no)$/i;
-}
-
+my $answer = 'y';
 if ($answer =~ /^(y|yes)$/i) {
     WriteMakefile(
                   NAME => 'Inline::C',