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

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.