projects
/
lab.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
utils::get gives hashref tree from API
[lab.git]
/
misc
/
dnsbench.pl
diff --git
a/misc/dnsbench.pl
b/misc/dnsbench.pl
index
d5d2008
..
65bdbdb
100644
(file)
--- a/
misc/dnsbench.pl
+++ b/
misc/dnsbench.pl
@@
-5,7
+5,7
@@
use warnings;
use Net::DNS;
use Net::DNS;
-my $hostlist = shift @ARGV || die "usage: $0 list_of_hosts [nameserver]";
+my $hostlist = shift @ARGV or die "usage: $0 list_of_hosts [nameserver]";
if (! -r $hostlist) {
die "$0: cannot read $hostlist";
}
if (! -r $hostlist) {
die "$0: cannot read $hostlist";
}
@@
-24,8
+24,8
@@
else {
}
}
-open LIST, "<$hostlist";
-while (my $host = <LIST>) {
+open my $list, '<', $hostlist or die "$0: filename: $!";
+while (my $host = <$list>) {
chomp $host;
my $query = $res->send($host);
if ($query) {
chomp $host;
my $query = $res->send($host);
if ($query) {