Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

120 lines (98 sloc) 2.875 kB
#!/usr/bin/perl
use strict;
use ExtUtils::MakeMaker;
use Config;
# Skip reminders and prompting if we're being run in --checkdeps or
# --installdeps batch modes. These are part of # ExtUtils::AutoInstall's
# automatic install process.
unless (grep /^--(check|install)deps/, @ARGV) {
# 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";
}
# Remind the user she can use --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",
);
}
# Should we skip the network tests?
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 text other 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;
}
print "\n";
}
# Which kind of makefile should we build?
eval "use 5.005_04";
if ($@) {
warn(
"\n",
"===============================================================\n",
"\n",
"Please upgrade Perl to avoid lapses in support. Perl 5.005_04\n",
"or newer is preferred. Support for older versions will be\n",
"phased out in the future.\n",
"\n",
"Thank you.\n",
"\n",
"===============================================================\n",
"\n",
);
require "./mylib/Makefile-5004.pm";
}
else {
require "./mylib/Makefile-5005.pm";
}
# And finally, ask the user to run a test report.
#
# use Config;
# my $make = $Config::Config{make};
#
# print(
# "\n",
# "=======================================================================\n",
# "\n",
# "Please consider running '$make uploadreport' to create and upload a\n",
# "test report. You can see samples of other test reports by visitng\n",
# "http://eekeek.org/poe-tests/\n",
# "\n",
# "Thank you.\n",
# "\n",
# "=======================================================================\n",
# );
0;
Jump to Line
Something went wrong with that request. Please try again.