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 |