| 1 | BEGIN { | ||
|---|---|---|---|
| 2 | if (exists $ENV{AUTOMATED_TESTING}) { | ||
| 3 | print "1..0 # Skipped: Too many broken cpan tester setups.\n"; | ||
| 4 | exit; | ||
| 5 | } | ||
| 6 | } | ||
| 7 | |||
| 1 | BEGIN { $| = 1; print "1..6\n"; } | 8 | BEGIN { $| = 1; print "1..6\n"; } |
| 2 | 9 | ||
| 3 | no warnings; | 10 | no warnings; |
| 4 | use strict; | 11 | use strict; |
| 5 | use Socket; | 12 | use Socket; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |