2007-12-16 12:48:55 +00:00
|
|
|
$OpenBSD: patch-Build_PL,v 1.2 2007/12/16 12:48:55 jasper Exp $
|
|
|
|
|
--- Build.PL.orig Tue Aug 21 00:12:48 2007
|
|
|
|
|
+++ Build.PL Sun Dec 16 13:46:19 2007
|
|
|
|
|
@@ -23,16 +23,7 @@ my $prompt_hostname = 'Please enter the hostname the c
|
2007-03-18 08:33:45 +00:00
|
|
|
my $prompt_username = qq|Please enter the username the component will represent. \n| .
|
|
|
|
|
qq|(NOTE: only valid for JABBERD20)|;
|
|
|
|
|
my $prompt_secret = 'Please enter the secret that will be used to auth.';
|
|
|
|
|
-my $ret;
|
|
|
|
|
-
|
|
|
|
|
-if (grep /^--default$/, @ARGV) {
|
|
|
|
|
-
|
|
|
|
|
- print $prompt, " [n] n\n\n";
|
|
|
|
|
-
|
|
|
|
|
-} else {
|
|
|
|
|
-
|
|
|
|
|
- $ret = Module::Build->prompt($prompt, 'n');
|
|
|
|
|
-}
|
|
|
|
|
+my $ret = 'n';
|
|
|
|
|
|
|
|
|
|
if($ret =~ /^y/i)
|
|
|
|
|
{
|
