corrected $this to $self
This commit is contained in:
parent
c35869fd30
commit
037f197f54
|
@ -65,7 +65,7 @@ sub sendCmd {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $cmd = shift;
|
my $cmd = shift;
|
||||||
my $result = undef;
|
my $result = undef;
|
||||||
$this->printMsg($cmd, 'Tx');
|
$self->printMsg($cmd, 'Tx');
|
||||||
|
|
||||||
my $req = HTTP::Request->new(GET=>'http://'.$self->{Monitor}->{ControlAddress}.'/'.$cmd);
|
my $req = HTTP::Request->new(GET=>'http://'.$self->{Monitor}->{ControlAddress}.'/'.$cmd);
|
||||||
my $res = $self->{ua}->request($req);
|
my $res = $self->{ua}->request($req);
|
||||||
|
|
Loading…
Reference in New Issue