diff options
-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 4f79acf63e..f1add6186b 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"); } |