works now...
git-svn-id: svn://127.0.0.1/Perl/Net::Wireless::802_11::WPA::CLI/trunk@525 0c1c3402-1be1-de11-8092-0022686faf23
This commit is contained in:
parent
033562fec1
commit
ac01fdfae9
|
@ -65,7 +65,10 @@ sub new {
|
|||
return $self;
|
||||
}
|
||||
|
||||
my %statusH=$self->status_breakdown($status);
|
||||
use Data::Dumper;
|
||||
print Dumper($self);
|
||||
|
||||
my %statusH=status_breakdown($status);
|
||||
if ($self->error){
|
||||
$self->{perror}=1;
|
||||
return $self;
|
||||
|
@ -769,15 +772,11 @@ This is a internal function.
|
|||
#this is a internal function used by this module
|
||||
#It breaks down that return from status.
|
||||
sub status_breakdown{
|
||||
my $self=$_[0];
|
||||
my $statusS=$_[1];
|
||||
my $type=$_[2];
|
||||
|
||||
my $statusS=$_[0];
|
||||
my $type=$_[1];
|
||||
|
||||
if(! $self->errorblank){
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
||||
my %hash;
|
||||
|
||||
my @statusA=split(/\n/, $statusS);
|
||||
|
@ -787,9 +786,6 @@ sub status_breakdown{
|
|||
}
|
||||
|
||||
if ( $statusA[0] !~ /^Selected interface/){
|
||||
$self->{error}=2;
|
||||
$self->{errorString}='Unexpected return from "wpa_cli '.$type.'": '.$statusA[0].'"';
|
||||
$self->warn;
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue