From b63b9a0ee5f3a6b37873e17d9ac77685c09a5098 Mon Sep 17 00:00:00 2001 From: risiko79 <> Date: Tue, 20 Sep 2016 18:07:36 +0000 Subject: [PATCH] 10_pilight_ctrl.pm: FIX: PERL WARNING: Subroutine from Blocking.pm redefined git-svn-id: https://svn.fhem.de/fhem/trunk@12188 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_pilight_ctrl.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/10_pilight_ctrl.pm b/fhem/FHEM/10_pilight_ctrl.pm index 9732f555e..742c5ef0d 100644 --- a/fhem/FHEM/10_pilight_ctrl.pm +++ b/fhem/FHEM/10_pilight_ctrl.pm @@ -43,6 +43,7 @@ # V 1.16 2016-06-02 - NEW: protocol oregon_21 (temp) # V 1.17 2016-06-28 - FIX: Experimental splice on scalar is now forbidden - use explizit array notation # V 1.18 2016-06-28 - NEW: support smoke sensors (protocol: secudo_smoke_sensor) +# V 1.19 2016-09-20 - FIX: PERL WARNING: Subroutine from Blocking.pm redefined ############################################## package main; @@ -52,6 +53,9 @@ use Time::HiRes qw(gettimeofday); use JSON; #libjson-perl use Switch; #libswitch-perl +require 'DevIo.pm'; +require 'Blocking.pm'; + sub pilight_ctrl_Parse($$); sub pilight_ctrl_Read($); sub pilight_ctrl_Ready($); @@ -85,9 +89,6 @@ sub pilight_ctrl_Initialize($) { my ($hash) = @_; - require "$attr{global}{modpath}/FHEM/DevIo.pm"; - require "$attr{global}{modpath}/FHEM/Blocking.pm"; - $hash->{ReadFn} = "pilight_ctrl_Read"; $hash->{WriteFn} = "pilight_ctrl_Write"; $hash->{ReadyFn} = "pilight_ctrl_Ready"; @@ -932,6 +933,8 @@ sub pilight_ctrl_SimpleWrite(@) 1; =pod +=item summary base module to comunicate with pilight +=item summary_DE Basismodul zur Kommunikation mit pilight =begin html