linux - Perl: Device::USB 没有通过测试

Question

如何找出失败的原因？

进行测试:

PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/00-load.t ....................... 1/1 # Testing Device::USB 0.35, Perl 5.014000, /usr/local/bin/perl t/00-load.t ....................... ok
t/01-create-usb.t ................. Failed 2/2 subtests
...
...

Test Summary Report

t/01-create-usb.t (Wstat: 11 Tests: 0 Failed: 0)
Non-zero wait status: 11
Parse errors: Bad plan. You planned 2 tests but ran 0.
...
...

Result: FAIL Failed 16/22 test programs. 0/38 subtests failed. make: * [test_dynamic] Fehler 255

当我运行此脚本时，我收到一条Segmentation fault 消息 (Speicherzugriffsfehler):

#!/usr/local/bin/perl
use warnings;
use strict;
use Device::USB;

my $usb = Device::USB->new();

Answer 1

1. perl -d:Trace ...在 Perl 代码中找到故障点。
2. 像 strace 这样的工具可以在系统调用级别找到故障点。