Perl: Device :: USB не проходит тесты - PullRequest
1 голос
/ 21 июня 2011

Как я мог узнать причину сбоя?

сделать тест:

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 # Тестирующее устройство :: USB 0.35, Perl 5.014000, / usr / local / bin / Perl t / 00-load.t ....................... нормально
t / 01-create-usb.t ................. Не удалось 2/2 подтеста
...
...

Сводный отчет по тестам

t / 01-create-usb.t (Wstat: 11 Тестов: 0 Сбой: 0)
Ненулевой статус ожидания: 11
Разбор ошибок: плохой план. Вы запланировали 2 теста, но выполнили 0.
...
...

Результат: FAIL Сбой 16/22 тестовых программ. 0/38 подтестов не удалось. make: * [test_dynamic] Fehler 255

Когда я запускаю этот скрипт, я получаю сообщение Segmentation fault (Speicherzugriffsfehler):

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

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

Ответы [ 2 ]

2 голосов
/ 22 июня 2011
  1. perl -d:Trace ..., чтобы найти точку отказа в коде Perl.
  2. Инструмент, подобный strace, для поиска точки отказа на уровне системных вызовов.
1 голос
/ 22 июня 2011

Какая версия libusb у вас есть?Кажется, в модуле открыта заявка, которая описывает проблему, аналогичную вашей: https://rt.cpan.org/Public/Bug/Display.html?id=65908

Заявки RT, открытые в модуле, связаны с главной страницей search.cpan.org для модуля, здесь http://search.cpan.org/dist/Device-USB/ Часто стоит заглянуть в очередь, если у вас проблемы с модулем.

...