little use fix

This commit is contained in:
Marko Oldenburg 2018-07-22 20:50:19 +02:00
parent 0f9c39d43b
commit 87575d3141

View File

@ -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}} ) {