vvelox
/
Net-Wireless-802_11-WPA-CLI
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

correct a minor socket issue 

git-svn-id: svn://127.0.0.1/Perl/Net::Wireless::802_11::WPA::CLI/trunk@520 0c1c3402-1be1-de11-8092-0022686faf23
This commit is contained in:
Zane C. B-H 2011-08-18 14:16:39 +00:00
parent 78e7013e1d
commit 7d21f4d06e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Net-Wireless-802_11-WPA-CLI/lib/Net/Wireless/802_11/WPA/CLI.pm
View File

@ -46,11 +46,15 @@ sub new {
error=>undef,
errorString=>'',
perror=>undef,
socket=>'-p '.shell_quote($socket),
socket=>'',
module=>'Net-Wireless-802_11-WPA-CLI',
};
bless $self;
if( defined( $socket ) ){
$self->{socket}='-p '.shell_quote($socket);
}
#tests if it is usable.
my $command='wpa_cli '.$self->{socket}.' status';
my $status=`$command`;