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:
parent
4221540615
commit
d2f07186d9
@ -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);
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user