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:
Zane C. B-H 2011-08-18 15:02:41 +00:00
parent 033562fec1
commit ac01fdfae9
1 changed files with 7 additions and 11 deletions

View File

@ -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;
}