diff options
| author | chromatic <chromatic@wgz.org> | 2001-09-16 18:22:29 -0600 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-09-17 07:14:17 +0000 |
| commit | 58d344df650fc2c90c32381f9e9363069a38509d (patch) | |
| tree | 9f2ba30e14d3baa4a21f3ece4bbd0c9ed17028eb | |
| parent | b189cfd0f43333790af2622356a29acc5548da01 (diff) | |
| download | perl-58d344df650fc2c90c32381f9e9363069a38509d.tar.gz | |
Re: t/op/ver.t using skip() improperly
Message-ID: <20010917062713.47716.qmail@onion.perl.org>
p4raw-id: //depot/perl@12046
| -rwxr-xr-x | t/op/ver.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/ver.t b/t/op/ver.t index 4ccc84cba1..f64cf47579 100755 --- a/t/op/ver.t +++ b/t/op/ver.t @@ -185,9 +185,9 @@ eval { require Socket; gethostbyaddr(v127.0.0.1, Socket::AF_INET) }; if ($@) { # No - so do not test insane fails. $@ =~ s/\n/\n# /g; - skip("No Socket::AF_INET # $@"); } -else { +SKIP: { + skip("No Socket::AF_INET # $@") if $@; my $ip = v2004.148.0.1; my $host; eval { $host = gethostbyaddr($ip,Socket::AF_INET) }; |