SVG: avoid perl errors for deleted FileLogs

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3995 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-10-03 10:27:43 +00:00
parent f41a99b7c3
commit d1dd17c2fb

View File

@ -445,9 +445,9 @@ SVG_readgplotfile($$)
# the plot directive with our own, as we offer a file for each line
my (@filelog, @data, $plot);
my $ldType = $wl;
$ldType = $defs{$defs{$wl}{LOGDEVICE}}{TYPE}
my $ldType = $defs{$defs{$wl}{LOGDEVICE}}{TYPE}
if($defs{$wl}{LOGDEVICE} && $defs{$defs{$wl}{LOGDEVICE}});
$ldType = $wl if(!$ldType);
open(FH, $gplot_pgm) || return (FW_fatal("$gplot_pgm: $!"), undef);
while(my $l = <FH>) {