mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

98_SVG.pm: add cast for older perl versions (Forum #40293)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@9114 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-08-23 09:27:51 +00:00
parent a2d2fb4255
commit b24db67a4f
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/FHEM/98_SVG.pm
View File

@@ -1286,7 +1286,7 @@ SVG_render($$$$$$$$$$)
my $h = $oh-2*$y; # Rect size my $h = $oh-2*$y; # Rect size
my @filter; my @filter;
foreach my $src (keys $srcDesc->{src}) { foreach my $src (keys %{$srcDesc->{src}}) {
my $f = CallFn($src, "SVG_regexpFn", $src, $srcDesc->{src}{$src}{arg}); my $f = CallFn($src, "SVG_regexpFn", $src, $srcDesc->{src}{$src}{arg});
push(@filter, $f) if($f); push(@filter, $f) if($f);
} }