From 9eeec6595254a060dac5b35fa8473fd63d3bff03 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 29 Mar 2002 17:27:51 +0000 Subject: [PATCH] Ooops. p4raw-id: //depot/perl@15611 --- t/op/ver.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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"); } -- 2.7.4