little use fix
This commit is contained in:
parent
0f9c39d43b
commit
87575d3141
@ -839,8 +839,6 @@ sub LGTV_WebOS_ResponseProcessing($$) {
|
||||
|
||||
sub LGTV_WebOS_WriteReadings($$) {
|
||||
|
||||
use Date::Parse;
|
||||
|
||||
my ($hash,$decode_json) = @_;
|
||||
|
||||
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 ) {
|
||||
|
||||
use Date::Parse;
|
||||
my $count = 0;
|
||||
foreach my $programList ( @{$decode_json->{payload}{programList}} ) {
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user