不是..处的GLOB参考..IO/选择.pm第61行

Question

我将一个IO::Select对象作为句柄传递给IO::Select::add，并得到以下错误：

Not a GLOB reference at ...IO/Select.pm line 61

这种做法持续了好几年，从几天（几周）开始，人们就开始犯错误了。在网上查看时，我无法确定我是否以错误的方式使用了调用，或者最近的perl或DNS::Resolver更新是否可能是问题的原因。

我正在做以下

#!/usr/bin/perl
use IO::Select;
use Net::DNS;
# create a resolver object
my $res = Net::DNS::Resolver->new();
# create an IO::Select object
my $sel = IO::Select->new();

# perform the background DNS query
my $sock = $res->bgsend('corti.li');
# adding the socket generates the error
$sel->add($sock);

添加一些调试我没有发现任何错误：

#!/usr/bin/perl
use Data::Dumper;
use IO::Select;
use Net::DNS;
# create a resolver object
my $res = Net::DNS::Resolver->new();
warn Dumper $res;
# create an IO::Select object
my $sel = IO::Select->new();
warn Dumper $sel;
# perform the background DNS query
my $sock = $res->bgsend('corti.li');
warn Dumper $sock;
# adding the socket generates the error
$sel->add($sock);

产生

$VAR1 = bless( {
                 'force_v4' => 0,
                 'retrans' => 5,
                 'persistent_udp' => 0,
                 'adflag' => 0,
                 'force_v6' => 0,
                 'port' => 53,
                 'answerfrom' => '',
                 'prefer_v6' => 0,
                 'defnames' => 1,
                 'tcp_timeout' => 120,
                 'udp_timeout' => 30,
                 'igntc' => 0,
                 'udppacketsize' => 0,
                 'dnsrch' => 1,
                 'recurse' => 1,
                 'srcaddr' => 0,
                 'persistent_tcp' => 0,
                 'retry' => 4,
                 'cdflag' => 0,
                 'nameserver4' => [
                                    '129.132.98.12'
                                  ],
                 'searchlist' => [
                                   'd.ethz.ch',
                                   'ethz.ch'
                                 ],
                 'tsig_rr' => undef,
                 'nameserver6' => [
                                    '2001:67c:10ec::c'
                                  ],
                 'usevc' => 0,
                 'dnssec' => 0,
                 'debug' => 0,
                 'errorstring' => 'unknown error or no error',
                 'srcport' => 0
               }, 'Net::DNS::Resolver' );
$VAR1 = bless( [
                 undef,
                 0
               ], 'IO::Select' );
$VAR1 = bless( [
                 ',
                 1,
                 undef,
                 undef,
                 undef,
                 [
                   bless( *Symbol::GEN0, 'IO::Socket::IP' ),
                   1448125508,
                   '129.132.98.12',
                   54103
                 ]
               ], 'IO::Select' );
Not a GLOB reference at /Users/corti/perl5/perlbrew/perls/perl-5.22.0/lib/5.22.0/darwin-2level/IO/Select.pm line 61.

我使用的是Perl 5.22和Net:：DNS 1.03

使用Perl5.18和Net:：DNS0.74，代码就可以工作了。

我是做错了什么还是一个bug？

Answer 1

问题是由Net:：DNS:：Resolver bgsend 的API更改引起的

参见#108745:Net:：DNS:：Resolver bgsend