From ddd2c81b9a94da3ba4b7e80df25f292151d374b7 Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 19 Apr 2017 20:21:20 +0000
Subject: [PATCH] some modules: removed some 'perl -c' errors

git-svn-id: https://svn.fhem.de/fhem/trunk@14041 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/33_readingsGroup.pm   | 9 +++++++++
 fhem/FHEM/33_readingsHistory.pm | 5 +++++
 fhem/FHEM/33_readingsProxy.pm   | 7 +++++++
 fhem/FHEM/39_alexa.pm           | 7 +++++++
 fhem/FHEM/39_siri.pm            | 7 ++++++-
 5 files changed, 34 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/33_readingsGroup.pm b/fhem/FHEM/33_readingsGroup.pm
index 7a6926d84..74d38fa8f 100644
--- a/fhem/FHEM/33_readingsGroup.pm
+++ b/fhem/FHEM/33_readingsGroup.pm
@@ -23,6 +23,15 @@ package main;
 use strict;
 use warnings;
 
+use vars qw(%modules);
+use vars qw(%defs);
+use vars qw(%attr);
+use vars qw($init_done);
+use vars qw($lastDefChange);
+sub Log;
+sub Log3;
+
+use vars qw(%data);
 use vars qw($FW_ME);
 use vars qw($FW_wname);
 use vars qw($FW_subdir);
diff --git a/fhem/FHEM/33_readingsHistory.pm b/fhem/FHEM/33_readingsHistory.pm
index 42a5a5976..a06cc0a9b 100644
--- a/fhem/FHEM/33_readingsHistory.pm
+++ b/fhem/FHEM/33_readingsHistory.pm
@@ -25,6 +25,11 @@ use warnings;
 
 use POSIX qw(strftime);
 
+use vars qw(%defs);
+use vars qw(%attr);
+sub Log;
+sub Log3;
+
 use vars qw($FW_ME);
 use vars qw($FW_wname);
 use vars qw($FW_subdir);
diff --git a/fhem/FHEM/33_readingsProxy.pm b/fhem/FHEM/33_readingsProxy.pm
index 9ce6a8ac8..e622345d3 100644
--- a/fhem/FHEM/33_readingsProxy.pm
+++ b/fhem/FHEM/33_readingsProxy.pm
@@ -25,6 +25,13 @@ use warnings;
 
 use SetExtensions;
 
+use vars qw(%defs);
+use vars qw(%attr);
+use vars qw($readingFnAttributes);
+use vars qw($init_done);
+sub Log;
+sub Log3;
+
 sub readingsProxy_Initialize($)
 {
   my ($hash) = @_;
diff --git a/fhem/FHEM/39_alexa.pm b/fhem/FHEM/39_alexa.pm
index 36887aaec..7c6a1a41c 100644
--- a/fhem/FHEM/39_alexa.pm
+++ b/fhem/FHEM/39_alexa.pm
@@ -9,6 +9,13 @@ use warnings;
 use JSON;
 use Data::Dumper;
 
+use vars qw(%modules);
+use vars qw(%defs);
+use vars qw(%attr);
+use vars qw($readingFnAttributes);
+sub Log;
+sub Log3;
+
 sub
 alexa_Initialize($)
 {
diff --git a/fhem/FHEM/39_siri.pm b/fhem/FHEM/39_siri.pm
index d16c272bd..0ec5d9338 100644
--- a/fhem/FHEM/39_siri.pm
+++ b/fhem/FHEM/39_siri.pm
@@ -6,7 +6,12 @@ package main;
 use strict;
 use warnings;
 
-#use IO::Socket::INET;
+use vars qw(%modules);
+use vars qw(%defs);
+use vars qw(%attr);
+use vars qw($readingFnAttributes);
+sub Log;
+sub Log3;
 
 sub
 siri_Initialize($)