Changeset acce401 in lab.git for misc

Timestamp:

May 19, 2012 10:16:33 AM (13 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

ce3a7e2

Parents:

30965f7

Message:

• replace outdated coding style

-> or

• open with bare word file handle

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@144 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• misc/dnsbench.pl (modified) (2 diffs)

misc/dnsbench.pl

@@ -6 +6 @@
 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";
@@ -25 +25 @@
 
 
-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);