};
};
} else {
- $perldll = 'perl56.' . $dlext;
+ $perldll = 'perl57.' . $dlext;
}
if ($dlsrc ne "dl_none.xs") {
my($prompt) = @_;
my($answer);
my($default) = $prompt =~ m/\[([yn])\]\s*$/i;
- warn $prompt;
+ print STDERR $prompt;
chop($answer = <STDIN>);
$answer = $default if $answer =~ m/^\s*$/;
($answer =~ m/^[yY]/);