Fehler MyUtils im Log seit Update

[Bartimaus]

Moin,

gestern habe ich eine Update von FHEM gemacht. Seitdem habe ich folgende Fehlermeldung im Log:

Code Auswählen Erweitern

PERL WARNING: Use of uninitialized value in subroutine entry at ./FHEM/99_MyUtils.pm line 22.

Hier der betreffende Abschnitt der MyUtils:

Code Auswählen Erweitern

##############################################
# $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 ?

[DeeSPe]

Code Auswählen Erweitern

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:

Code Auswählen Erweitern

sub
Utils_Initialize($$)
{
  my ($hash) = @_;
}


müsste es:

Code Auswählen Erweitern

sub
MyUtils_Initialize($$)
{
  my ($hash) = @_;
}

sein.

Eventuell ist Dein Problem damit schon behoben?

Gruß
Dan

[Bartimaus]

Arrrgh...., danke für Deinen Hinweis. Habs geändert und werde beobachten. Danke Dir !

[Bartimaus]

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 ?

[Intruder1956]

schau mal hier

https://forum.fhem.de/index.php/topic,59227.msg506057.html#msg506057

gruß Werner

[Hollo]

Ich sehe in dem geposteten Code nirgends eine Subroutine entry !

[Bartimaus]

schau mal hier

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.)

Code Auswählen Erweitern

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);
  }

[Hollo]

@Hollo
Der Code war ja nur ein Auszug, aber was ist hiermit ? (s.o.)...

Ach Mist, vergiss es 
Ich hab mich vom myUtils verwirren lassen und war auf dem total falschen Weg unterwegs. 

[DeeSPe]

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

[Bartimaus]

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.