From e1dc4c72ecbb86d24c03690ef0262ed9903f5a01 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 3 Oct 2013 10:27:43 +0000
Subject: [PATCH] SVG: avoid perl errors for deleted FileLogs

git-svn-id: https://svn.fhem.de/fhem/trunk@3995 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_SVG.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_SVG.pm b/fhem/FHEM/98_SVG.pm
index 3ab570a72..8a54aba3c 100755
--- a/fhem/FHEM/98_SVG.pm
+++ b/fhem/FHEM/98_SVG.pm
@@ -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>) {