趣味のプログラム工房

Net::UPnP::ControlPoint 不具合、、、

うちのサイトで公開している「MediConWEB」にて、

PCを入れ替えに伴い、MediConWEBをセットアップしている最中に、
Perlの「Net::UPnP::ControlPoint」モジュールに不具合があり、全然使えない問題が発覚しました。

古いPCでは使えていたのになんで使えなくなったんだろう。。。

3時間ほどperlのデバックモードでデバックした結果、
/usr/local/share/perl/5.22.1/Net/UPnP/ControlPoint.pm
の96行目の「$http_req = Net::UPnP::HTTP->new();」で落ちているようです。
どうも直前の「$dev_port」に空が入るとエラーになるらしい。
Net::UPnP::HTTPの不具合かな?

とりあえず、
if ($dev_port eq ""){
next;
}
でからの場合はスキップすることで回避出来ました。
まあ、環境に依るきがします。

2016年11月21日