17 lines
377 B
Plaintext
17 lines
377 B
Plaintext
|
--- C/Makefile.PL.orig Mon Dec 4 17:14:45 2006
|
||
|
|
+++ C/Makefile.PL Mon Dec 4 17:15:46 2006
|
||
|
|
@@ -55,12 +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(
|