Change 12046 by sky@sky-titanic on 2001/09/17 07:14:17
From: "chromatic" <[EMAIL PROTECTED]>
Subject: Re: t/op/ver.t using skip() improperly
Date: Mon, 17 Sep 2001 00:22:29 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/ver.t#20 edit
Differences ...
==== //depot/perl/t/op/ver.t#20 (xtext) ====
Index: perl/t/op/ver.t
--- perl/t/op/ver.t.~1~ Mon Sep 17 01:30:06 2001
+++ perl/t/op/ver.t Mon Sep 17 01:30:06 2001
@@ -185,9 +185,9 @@
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) };
End of Patch.
