little use fix

2018-07-22 20:50:19 +02:00
parent 0f9c39d43b
commit 87575d3141
1 changed files with 1 additions and 3 deletions
--- a/82_LGTV_WebOS.pm
+++ b/82_LGTV_WebOS.pm
@@ -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}} ) {