Mark Copper wrote:
> On Tue, Apr 4, 2017 at 2:36 PM, songbird <songb...@anthive.com> wrote:
>> Mark Copper wrote:
>>>>
>>>>   is it missing a build dependency or something?
>>>>
>>>>   what does apt-get build-dep libinline-c-perl do?
>>>>
>>>
>>>
>>> The following NEW packages will be installed:
>>>   libfile-sharedir-install-perl libio-all-perl libspiffy-perl
>>>   libsub-uplevel-perl libtest-warn-perl
>>>
>>> I wasn't expecting that.
>>>
>>> The package libdevice-usb-perl seemed to install without difficulty.
>>> It works in the sense that the main constructor functions, but other
>>> things don't work.  I know it's old code but I just need to read a
>>> number from an interrupt endpoint so I was just trying chase down
>>> whether it was an easy-to-fix problem.
>>
>>   remember that installing a package for use
>> is different than installing a package for
>> building.
>>
>>   did you try the same command for libdevice-usb-perl?
>>
>>   aka:
>>
>> apt-get build-dep libdevice-usb-perl
>>
>>   ?
>
> Nothing at all there.  I'm thinking it must be something simple.  This
> test produces the output below which made me think not all the C code
> was getting read in properly.
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
> use Device::USB;
> use Carp;
> use Data::Dumper;
> $Data::Dumper::Indent = 1;
>
> my $data;
> my $VENDOR=0x0b67;
> my $PRODUCT=0x555e;
> my $usb = Device::USB->new();
> my $dev = $usb->find_device( $VENDOR, $PRODUCT );
> croak "Device not found.\n" unless defined $dev;
> print "Device found: ", $dev->filename(), ": ";
> printf "Device: %04X:%04X\n", $dev->idVendor(), $dev->idProduct();
> if($dev->open())
>     {
>         print "\t", $dev->manufacturer(), ": ", $dev->product(), "\n";
>         print Dumper( $dev );
>     }
> print "Bytes read: " . $dev->interrupt_read(129, $data, 64, 1000) . "\n";
> print "Data read: " . $data . "\n";
> my $cfg = $dev->config()->[0];
> print "Config:", $cfg->iConfiguration(), ": interface count: ",
> $cfg->nNumInterfaces(), "\n";
> __END__
>
>
> Output:
> Use of uninitialized value in concatenation (.) or string at
> /usr/lib/x86_64-linux-gnu/perl5/5.20/Device/USB.pm line 10.
> Use of uninitialized value in concatenation (.) or string at
> /usr/lib/x86_64-linux-gnu/perl5/5.20/Device/USB.pm line 10.
> Use of uninitialized value in concatenation (.) or string at
> /usr/lib/x86_64-linux-gnu/perl5/5.20/Device/USB.pm line 10.
> Device found: 003: Device: 0B67:555E
>     :
> $VAR1 = bless( {
>   'descriptor' => {
>     'idVendor' => 2919,
>     'iProduct' => 2,
>     'bcdDevice' => '0.04',
>     'bcdUSB' => '1.10',
>     'idProduct' => 21854,
>     'bDeviceSubClass' => 0,
>     'iSerialNumber' => 3,
>     'bNumConfigurations' => 1,
>     'bDeviceProtocol' => 0,
>     'bMaxPacketSize0' => 64,
>     'iManufacturer' => 1,
>     'bDescriptorType' => 1,
>     'bDeviceClass' => 0
>   },
>   'config' => [
>     bless( {
>       'bConfigurationValue' => 1,
>       'bNumInterfaces' => 1,
>       'MaxPower' => 100,
>       'bmAttributes' => 128,
>       'wTotalLength' => 41,
>       'interfaces' => [
>         [
>           bless( {
>             'bAlternateSetting' => 0,
>             'endpoints' => [
>               bless( {
>                 'bDescriptorType' => 5,
>                 'bSynchAddress' => 0,
>                 'bRefresh' => 0,
>                 'wMaxPacketSize' => 6,
>                 'bEndpointAddress' => 129,
>                 'bInterval' => 50,
>                 'bmAttributes' => 3
>               }, 'Device::USB::DevEndpoint' ),
>               bless( {
>                 'bmAttributes' => 3,
>                 'bInterval' => 100,
>                 'bEndpointAddress' => 2,
>                 'bSynchAddress' => 0,
>                 'wMaxPacketSize' => 14,
>                 'bRefresh' => 0,
>                 'bDescriptorType' => 5
>               }, 'Device::USB::DevEndpoint' )
>             ],
>             'bInterfaceNumber' => 0,
>             'bInterfaceSubClass' => 141,
>             'bNumEndpoints' => 2,
>             'bInterfaceClass' => 3,
>             'bDescriptorType' => 4,
>             'bInterfaceProtocol' => 141,
>             'iInterface' => 0
>           }, 'Device::USB::DevInterface' )
>         ]
>       ],
>       'bDescriptorType' => 2,
>       'iConfiguration' => 4
>     }, 'Device::USB::DevConfig' )
>   ],
>   'handle' => 16283552,
>   'device' => 21499456,
>   'filename' => '003'
> }, 'Device::USB::Device' );
> Bytes read: -2
> Data read:
> Can't locate object method "nNumInterfaces" via package
> "Device::USB::DevConfig" at ./read_usb.pl line 26, <DATA> line 1.


hmm, in the docs i see:

===
       This module depends on the Carp, Inline and Inline::C modules, as well
       as the strict and warnings pragmas. Obviously, libusb must be available
       since that is the entire reason for the module's existence.
===

  but i don't see any references above to the Inline
or Inline::C so i'm not sure if that's the problem or
not?

  i'm not familiar enough with perl to otherwise
debug this.


  songbird

Reply via email to