2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 05:16:45 +00:00

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

git-svn-id: https://svn.fhem.de/fhem/trunk@9114 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-08-23 09:27:51 +00:00
parent 4221540615
commit d2f07186d9

View File

@ -1286,7 +1286,7 @@ SVG_render($$$$$$$$$$)
my $h = $oh-2*$y; # Rect size
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});
push(@filter, $f) if($f);
}