git-svn-id: svn://127.0.0.1/Perl/Net::Wireless::802_11::WPA::CLI/trunk@524 0c1c3402-1be1-de11-8092-0022686faf23
This commit is contained in:
Zane C. B-H 2011-08-18 14:32:12 +00:00
parent cb98cbf4ad
commit 033562fec1
1 changed files with 5 additions and 2 deletions

View File

@ -769,7 +769,10 @@ 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, $statusS)= @_;
my $self=$_[0];
my $statusS=$_[1];
my $type=$_[2];
if(! $self->errorblank){
return undef;
@ -785,7 +788,7 @@ sub status_breakdown{
if ( $statusA[0] !~ /^Selected interface/){
$self->{error}=2;
$self->{errorString}="Unexpected return from 'wpa_cli ".$type."': ".$statusA[0].'"';
$self->{errorString}='Unexpected return from "wpa_cli '.$type.'": '.$statusA[0].'"';
$self->warn;
return undef;
}