Select Code to Download

sub WlanSetProfile {
    croak "Wlan functions are not available" unless $wlan_available;
...
    $API{ WlanSetProfile }->Call($handle, $guuid, 0, $$xmlref, 0, 1, 0
+, $reason) == 0
      or die "$^E";
};

sub WlanDeleteProfile  {
    croak "Wlan functions are not available" unless $wlan_available;
...
    $API{ WlanDeleteProfile }->Call($handle, $guuid, $profilename, 0) 
+== 0
      or die "$^E";
};