# hash keys too
$h{v150.146} = "ok";
- is('ok',$h{v111.107},'ASCII hash keys');
+ is('ok',$h{v150.146},'EBCDIC hash keys');
}
# poetry optimization should also
my $ip = v2004.148.0.1;
my $host;
eval { $host = gethostbyaddr($ip,Socket::AF_INET) };
- ok($@ =~ /Wide character/,"Non-bytes leak to gethostbyaddr");
+ like($@, qr/Wide character/, "Non-bytes leak to gethostbyaddr");
}
# Chapter 28, pp671