Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

85 lines (70 sloc) 1.871 kb
#!/usr/bin/perl
use strict;
use ExtUtils::MakeMaker;
use Config;
# Switch to default behavior if STDIN isn't a tty.
unless (-t STDIN) {
warn(
"\n",
"====================================================================\n",
"\n",
"Assuming --default because standard input is not a terminal.\n",
"\n",
"====================================================================\n",
"\n",
);
push @ARGV, "--default";
}
unless (grep /^--default$/, @ARGV) {
warn(
"\n",
"====================================================================\n",
"\n",
"Prompts may be bypassed by running:\n",
" $^X $0 --default\n",
"\n",
"Only necessary modules will be installed by default.\n",
"\n",
"====================================================================\n",
"\n",
);
}
my $prompt = qq|
POE's test suite requires a functional network.
However, we can skip those tests requiring network
access if you would like.
Would you like to skip the network tests?
|;
$prompt .= "(Any other text than Y or y will be taken as a no)";
my $ret = "n";
if (grep /^--default$/, @ARGV) {
print $prompt, " [n] n\n\n";
}
else {
$ret = prompt($prompt, "n");
}
my $marker = 'run_network_tests';
if($ret =~ /^Y$/i) {
unlink $marker if $marker;
} else {
open(TOUCH,"+>$marker") and close TOUCH;
}
eval "use 5.005_03";
if ($@) {
warn(
"\n",
"===============================================================\n",
"\n",
"Perl 5.005_03 or later is preferred, and versions before it are\n",
"deprecated. Try installing POE with a newer version of Perl to\n",
"see what you're missing. :)\n",
"\n",
"===============================================================\n",
"\n",
);
require "./mylib/Makefile-5004.pm";
}
else {
require "./mylib/Makefile-5005.pm";
}
0;
Jump to Line
Something went wrong with that request. Please try again.