FHEM/mod-LGTV_WebOS
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix litte typo

Browse Source
This commit is contained in:
Marko Oldenburg 2018-03-16 01:47:31 +01:00
parent 3413baa41f
commit dd8e0b9e83
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
82_LGTV_WebOS.pm
View File

@ -2,7 +2,7 @@
#
# Developed with Kate
#
# (c) 2017 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
# (c) 2017-2018 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
# All rights reserved
#
# Special thanks goes to comitters:
@ -53,21 +53,23 @@
package main;
my $missingModul = "";
use strict;
use warnings;
use MIME::Base64;
use IO::Socket::INET;
use Digest::SHA qw(sha1_hex);
use JSON qw(decode_json encode_json);
use Encode qw(encode_utf8 decode_utf8);
use Blocking;
eval "use MIME::Base64;1" or $missingModul .= "MIME::Base64 ";
eval "use IO::Socket::INET;1" or $missingModul .= "IO::Socket::INET ";
eval "use Digest::SHA qw(sha1_hex);1" or $missingModul .= "Digest::SHA ";
eval "use JSON qw(decode_json encode_json);1" or $missingModul .= "JSON ";
eval "use Encode qw(encode_utf8 decode_utf8);1" or $missingModul .= "Encode ";
eval "use Blocking;1" or $missingModul .= "Blocking ";
my $version = "2.0.2";
my $version = "2.0.3";
@ -235,6 +237,7 @@ sub LGTV_WebOS_Define($$) {
return "too few parameters: define <name> LGTV_WebOS <HOST>" if( @a != 3 );
return "Cannot define LGTV_WebOS device. Perl modul ${missingModul}is missing." if ( $missingModul );