Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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...
commit 46a05cdff6f466ba82eb5c282cc855d62755d2d7 1 parent 8f798e9
Chris Fedde cfedde authored

Showing 1 changed file with 4 additions and 4 deletions. Show diff stats Hide diff stats

  1. +4 4 Makefile.PL
8 Makefile.PL
@@ -33,20 +33,20 @@ unless (grep /^--default$/, @ARGV) {
33 33 my $prompt = (
34 34 "Some of POE's tests require a functional network.\n" .
35 35 "You can skip these tests if you'd like.\n\n" .
36   - "Would you like to skip the network tests?"
  36 + "Will you give permission to run these network tests?"
37 37 );
38 38
39   -my $ret = "n";
  39 +my $ret = "y";
40 40 if (grep /^--default$/, @ARGV) {
41 41 print $prompt, " [$ret] $ret\n\n";
42 42 }
43 43 else {
44   - $ret = prompt($prompt, "n");
  44 + $ret = prompt($prompt, 'n');
45 45 }
46 46
47 47 my $marker = 'run_network_tests';
48 48 unlink $marker;
49   -unless ($ret =~ /^Y$/i) {
  49 +if ($ret =~ /^Y$/i) {
50 50 open(TOUCH,"+>$marker") and close TOUCH;
51 51 }
52 52

0 comments on commit 46a05cd

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