From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 29 Mar 2002 17:27:51 +0000 (+0000)
Subject: Ooops.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9eeec6595254a060dac5b35fa8473fd63d3bff03;p=p5sagit%2Fp5-mst-13.2.git

Ooops.

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

diff --git a/t/op/ver.t b/t/op/ver.t
index 4f79acf..f1add61 100755
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -180,7 +180,7 @@ is('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 do not test insane fails.
     $@ =~ s/\n/\n# /g;
@@ -189,7 +189,7 @@ SKIP: {
     skip("No Socket::AF_INET # $@") if $@;
     my $ip   = v2004.148.0.1;
     my $host;
-    eval { $host = gethostbyaddr($ip,Socket::AF_INET) };
+    eval { $host = gethostbyaddr($ip,&Socket::AF_INET) };
     like($@, qr/Wide character/, "Non-bytes leak to gethostbyaddr");
 }