From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Jun 2001 16:29:40 +0000 (+0000)
Subject: More verbose failure.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a52c5cc55f4ebc894a7289dc386b81d22d08e1a;p=p5sagit%2Fp5-mst-13.2.git

More verbose failure.

p4raw-id: //depot/perl@10432
---

diff --git a/t/op/ver.t b/t/op/ver.t
index 05bd854..18d101a 100755
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -202,17 +202,17 @@ okeq('foo',((chr(193) eq 'A') ? v134.150.150 : v102.111.111),"v-string ne ''");
 # Chapter 15, pp403
 
 # See if sane addr and gethostbyaddr() work
-eval { require Socket; gethostbyaddr(v127.0.0.1,Socket::AF_INET()) };
+eval { require Socket; gethostbyaddr(v127.0.0.1, Socket::AF_INET) };
 if ($@)
  {
   # No - so don't test insane fails.
-  skip("No Socket");
+  skip("No Socket::AF_INET # $@");
  }
 else
  {
   my $ip   = v2004.148.0.1;
   my $host;
-  eval { $host = gethostbyaddr($ip,Socket::AF_INET()) };
+  eval { $host = gethostbyaddr($ip,Socket::AF_INET) };
   okeq($@ =~ /Wide character/,1,"Non-bytes leak to gethostbyaddr");
  }