Moin,
gestern habe ich eine Update von FHEM gemacht. Seitdem habe ich folgende Fehlermeldung im Log:
PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_MyUtils.pm line 22.
Hier der betreffende Abschnitt der MyUtils:
##############################################
# $Id: 99_Utils.pm 6660 2014-10-03 06:35:43Z rudolfkoenig $
package main;
use strict;
use warnings;
use POSIX;
sub
Utils_Initialize($$)
{
my ($hash) = @_;
}
sub
time_str2num($)
{
my ($str) = @_;
my @a;
if($str) {
@a = split("[- :]", $str);
return mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1);
} else {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
return mktime($sec, $min, $hour, $mday, $mon, $year, 0, 0, -1);
}
}
Zeile 22 ist die mit "return mktime".
Jedoch habe ich die MyUtils seit Ewigkeiten nicht geändert.
Habt Ihr mal nen Tip wo ich noch suchen muss ?
Zitat von: Bartimaus am 19 Oktober 2016, 11:22:51
PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_MyUtils.pm line 22.
Wenn das wirklich diese Datei ist, dann ist schon die erste Funktion falsch!
Statt:
sub
Utils_Initialize($$)
{
my ($hash) = @_;
}
müsste es:
sub
MyUtils_Initialize($$)
{
my ($hash) = @_;
}
sein.
Eventuell ist Dein Problem damit schon behoben?
Gruß
Dan
Arrrgh...., danke für Deinen Hinweis. Habs geändert und werde beobachten. Danke Dir !
Leider war es nicht das Problem. Ich habe auch mal die Datei nach 99_myUtils.pm umbenannt, doppelte *Utils* gesucht, alles ohne Erfolg.
Noch weitere Ideen ?
schau mal hier
https://forum.fhem.de/index.php/topic,59227.msg506057.html#msg506057 (https://forum.fhem.de/index.php/topic,59227.msg506057.html#msg506057)
gruß Werner
Ich sehe in dem geposteten Code nirgends eine Subroutine entry !
Zitat von: Intruder1956 am 19 Oktober 2016, 12:23:43
schau mal hier
https://forum.fhem.de/index.php/topic,59227.msg506057.html#msg506057 (https://forum.fhem.de/index.php/topic,59227.msg506057.html#msg506057)
gruß Werner
Hallo Werner,
danke, das scheint es gewesen zu sein ! ;)
@Hollo
Der Code war ja nur ein Auszug, aber was ist hiermit ? (s.o.)
sub
time_str2num($)
{
my ($str) = @_;
my @a;
if($str) {
@a = split("[- :]", $str);
return mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1);
} else {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
return mktime($sec, $min, $hour, $mday, $mon, $year, 0, 0, -1);
}
Zitat von: Bartimaus am 19 Oktober 2016, 12:45:39
@Hollo
Der Code war ja nur ein Auszug, aber was ist hiermit ? (s.o.)...
Ach Mist, vergiss es ;D
Ich hab mich vom myUtils verwirren lassen und war auf dem total falschen Weg unterwegs. :-X
Zitat von: Bartimaus am 19 Oktober 2016, 12:45:39
Hallo Werner,
danke, das scheint es gewesen zu sein ! ;)
Ist das Problem nun damit gelöst?
Wenn ja, was war die Lösung?
Gruß
Dan
Hi,
des Rätsels Lösung war wohl ein erneutes Update. In dem verlinkten Fred hatte Rudi den Fehler behoben und heute Morgen war er in der Aktualisierung enthalten.