little use fix
This commit is contained in:
parent
0f9c39d43b
commit
87575d3141
@ -839,8 +839,6 @@ sub LGTV_WebOS_ResponseProcessing($$) {
|
|||||||
|
|
||||||
sub LGTV_WebOS_WriteReadings($$) {
|
sub LGTV_WebOS_WriteReadings($$) {
|
||||||
|
|
||||||
use Date::Parse;
|
|
||||||
|
|
||||||
my ($hash,$decode_json) = @_;
|
my ($hash,$decode_json) = @_;
|
||||||
|
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
@ -878,7 +876,7 @@ sub LGTV_WebOS_WriteReadings($$) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
elsif( ref($decode_json->{payload}{programList}) eq "ARRAY" and scalar(@{$decode_json->{payload}{programList}}) > 0 ) {
|
elsif( ref($decode_json->{payload}{programList}) eq "ARRAY" and scalar(@{$decode_json->{payload}{programList}}) > 0 ) {
|
||||||
|
use Date::Parse;
|
||||||
my $count = 0;
|
my $count = 0;
|
||||||
foreach my $programList ( @{$decode_json->{payload}{programList}} ) {
|
foreach my $programList ( @{$decode_json->{payload}{programList}} ) {
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user