in reply to Re^5: Help with Lorcon XS library
in thread Help with Lorcon XS library

Hi the output of the 
 lorcon_lsit_driver is:
$VAR1 = [
          {
            'name' => 'rtfile',
            'details' => 'Real-time PCAP file source'
          },
          {
            'details' => 'PCAP file source',
            'name' => 'file'
          },
          {
            'name' => 'madwifing',
            'details' => 'Linux madwifi-ng drivers, deprecated by ath5
+k and ath9k'
          },
          {
            'name' => 'tuntap',
            'details' => 'Linux tuntap virtual interface drivers'
          }
        ];

[download]
I have already tried if I use: 
 
  print Net::Lorcon2::lorcon_create("wlo1", $driver); #where $driver c
+an be madwifing or other it says:
  
  Net::Lorcon2::lorcon_create: driver is not a reference at -e line 3.

[download]
and if I do 
   print Net::Lorcon2::lorcon_create("wlo1", \$driver); #where $driver
+ can be madwifing or other it says
   segmentation error (core dump created)

[download]
Regards. Edoardo

Replies are listed 'Best First'.
Re^7: Help with Lorcon XS library
by syphilis (Archbishop) on Jul 21, 2020 at 12:38 UTC 
      print Net::Lorcon2::lorcon_create("wlo1", $driver); #where $driver c
+an be madwifing or other it says:
 Net::Lorcon2::lorcon_create: driver is not a reference at -e line 3.

    [download]


    Yes - you should not do that.
    As the error message says $driver is not a reference. 

       print Net::Lorcon2::lorcon_create("wlo1", \$driver); #where $driver
+ can be madwifing or other it says
   segmentation error (core dump created)

    [download]


    Yes - you should not do that either. At least, this time you have passed something that is a reference.
    But it's not a reference to the right thing, and therefore causes a segfault.

    As I said in my first post, the correct thing to do would be: 
    my $driver = "madwifing";
my $if = "wlo1";

my $drv = lorcon_find_driver($driver);
if (! $drv) {
   print STDERR "[-] Unable to find DRV for [$driver]\n";
   exit 1;
}

my $lorcon = lorcon_create($if, $drv);
if (! $lorcon) {
  print STDERR "[-] lorcon_create failed\n";
  exit 1;
}

    [download]
    What happens if you do that ?
    In view of what marto dug up, it may not work either - but it's at least worth a try.

    Cheers,
    Rob
[reply]
[d/l]
[select]
      Hi! Many thanks, now it works, It is pretty strange but I think that the problem was related to the string passed as $driver and not to the XS code, WOW i am so happy, would you like to be thanked in the page of metacpan? under the voice HERO of the module. still many thanks, Regards Edoardo M
[reply]

        If PerlMonks helped you by bringing you into contact with knowledgeable people, please consider showing your gratitude by stopping by the Offering Plate on your way out. :)

        Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]

In Section Seekers of Perl Wisdom