Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

$usb = Device::USB->new();
print "1\n";
  2. or download this
    Segmentation fault (core dumped)
  3. or download this
    >> (eval 7)[/usr/local/share/perl5/Inline.pm:199]:4:     $INIT++;
>> (eval 7)[/usr/local/share/perl5/Inline.pm:199]:5:     &init;
...
>> /root/perl5/lib/perl5/i386-linux-thread-multi/Device/USB.pm:187:   
+  my $class = shift;
>> /root/perl5/lib/perl5/i386-linux-thread-multi/Device/USB.pm:189:   
+  $init_ref->();
>> /root/perl5/lib/perl5/i386-linux-thread-multi/Device/USB.pm:175:   
+  libusb_init();
  4. or download this
    $usb = Device::USB->new();