CPAN 安装 Device::USB 不正常
CPAN install Device::USB Not OK
我在 Debian 8 上,当我尝试使用 cpan
安装 Device::USB 模块时出现错误
cpan Device::USB
Reading '/home/system/.cpan/Metadata'
Database was generated on Thu, 25 Aug 2016 14:29:02 GMT
Running install for module 'Device::USB'
Checksum for /home/system/.cpan/sources/authors/id/G/GW/GWADEJ/Device-USB-0.36.tar.gz ok
Configuring G/GW/GWADEJ/Device-USB-0.36.tar.gz with Makefile.PL
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for Device::USB
Writing MYMETA.yml and MYMETA.json
Failed to find module path for 'dump_usb.pl' at Makefile.PL line 50.
Warning: No success on command[/usr/bin/perl Makefile.PL INSTALLDIRS=site]
GWADEJ/Device-USB-0.36.tar.gz
/usr/bin/perl Makefile.PL INSTALLDIRS=site -- NOT OK
我查看了cpan.org网站dump_usb.pl页面的FAQ,没有找到任何关于这个蛇咬尾问题的相关信息,因为cpan应该安装dump_usb.pl 并且它显示没有找到模块
感谢您的帮助
这是一个已知问题,已报告给 GitHub repo of Device::USB。
根据该线程上的讨论,可能的解决方案是:
降级Inline::MakeMaker
即
在 Makefile.PL
中进行以下更改
+sub MY::libscan {
+ return if ($_[1] eq 'USB.pm' or $_[1] eq 'dump_usb.pl');
+ return $_[1];
+}
我在 Debian 8 上,当我尝试使用 cpan
安装 Device::USB 模块时出现错误cpan Device::USB
Reading '/home/system/.cpan/Metadata'
Database was generated on Thu, 25 Aug 2016 14:29:02 GMT
Running install for module 'Device::USB'
Checksum for /home/system/.cpan/sources/authors/id/G/GW/GWADEJ/Device-USB-0.36.tar.gz ok
Configuring G/GW/GWADEJ/Device-USB-0.36.tar.gz with Makefile.PL
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for Device::USB
Writing MYMETA.yml and MYMETA.json
Failed to find module path for 'dump_usb.pl' at Makefile.PL line 50.
Warning: No success on command[/usr/bin/perl Makefile.PL INSTALLDIRS=site]
GWADEJ/Device-USB-0.36.tar.gz
/usr/bin/perl Makefile.PL INSTALLDIRS=site -- NOT OK
我查看了cpan.org网站dump_usb.pl页面的FAQ,没有找到任何关于这个蛇咬尾问题的相关信息,因为cpan应该安装dump_usb.pl 并且它显示没有找到模块
感谢您的帮助
这是一个已知问题,已报告给 GitHub repo of Device::USB。
根据该线程上的讨论,可能的解决方案是:
降级Inline::MakeMaker
即
在 Makefile.PL
中进行以下更改+sub MY::libscan {
+ return if ($_[1] eq 'USB.pm' or $_[1] eq 'dump_usb.pl');
+ return $_[1];
+}