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 # 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 # All rights reserved
# #
# Special thanks goes to comitters: # Special thanks goes to comitters:
@ -53,21 +53,23 @@
package main; package main;
my $missingModul = "";
use strict; use strict;
use warnings; use warnings;
use MIME::Base64; eval "use MIME::Base64;1" or $missingModul .= "MIME::Base64 ";
use IO::Socket::INET; eval "use IO::Socket::INET;1" or $missingModul .= "IO::Socket::INET ";
use Digest::SHA qw(sha1_hex); eval "use Digest::SHA qw(sha1_hex);1" or $missingModul .= "Digest::SHA ";
use JSON qw(decode_json encode_json); eval "use JSON qw(decode_json encode_json);1" or $missingModul .= "JSON ";
use Encode qw(encode_utf8 decode_utf8); eval "use Encode qw(encode_utf8 decode_utf8);1" or $missingModul .= "Encode ";
use Blocking; 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 "too few parameters: define <name> LGTV_WebOS <HOST>" if( @a != 3 );
return "Cannot define LGTV_WebOS device. Perl modul ${missingModul}is missing." if ( $missingModul );