mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-04 11:26:55 +00:00
SVG: avoid perl errors for deleted FileLogs
git-svn-id: https://svn.fhem.de/fhem/trunk@3995 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
409ecdff4e
commit
54643dea99
@ -445,9 +445,9 @@ SVG_readgplotfile($$)
|
|||||||
# the plot directive with our own, as we offer a file for each line
|
# the plot directive with our own, as we offer a file for each line
|
||||||
my (@filelog, @data, $plot);
|
my (@filelog, @data, $plot);
|
||||||
|
|
||||||
my $ldType = $wl;
|
my $ldType = $defs{$defs{$wl}{LOGDEVICE}}{TYPE}
|
||||||
$ldType = $defs{$defs{$wl}{LOGDEVICE}}{TYPE}
|
|
||||||
if($defs{$wl}{LOGDEVICE} && $defs{$defs{$wl}{LOGDEVICE}});
|
if($defs{$wl}{LOGDEVICE} && $defs{$defs{$wl}{LOGDEVICE}});
|
||||||
|
$ldType = $wl if(!$ldType);
|
||||||
|
|
||||||
open(FH, $gplot_pgm) || return (FW_fatal("$gplot_pgm: $!"), undef);
|
open(FH, $gplot_pgm) || return (FW_fatal("$gplot_pgm: $!"), undef);
|
||||||
while(my $l = <FH>) {
|
while(my $l = <FH>) {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user