Skip to content
Browse files

Make the sense of the network test use positive logic

interactive use defaults to "do not grant permission"
non interactive defaults to "grant permission"
  • Loading branch information...
1 parent 8f798e9 commit 46a05cdff6f466ba82eb5c282cc855d62755d2d7 @cfedde cfedde committed Mar 8, 2008
Showing with 4 additions and 4 deletions.
  1. +4 −4 Makefile.PL
View
8 Makefile.PL
@@ -33,20 +33,20 @@ unless (grep /^--default$/, @ARGV) {
my $prompt = (
"Some of POE's tests require a functional network.\n" .
"You can skip these tests if you'd like.\n\n" .
- "Would you like to skip the network tests?"
+ "Will you give permission to run these network tests?"
);
-my $ret = "n";
+my $ret = "y";
if (grep /^--default$/, @ARGV) {
print $prompt, " [$ret] $ret\n\n";
}
else {
- $ret = prompt($prompt, "n");
+ $ret = prompt($prompt, 'n');
}
my $marker = 'run_network_tests';
unlink $marker;
-unless ($ret =~ /^Y$/i) {
+if ($ret =~ /^Y$/i) {
open(TOUCH,"+>$marker") and close TOUCH;
}

0 comments on commit 46a05cd

Please sign in to comment.
Something went wrong with that request. Please try again.