From 533eeab247a382083ee3b1d500642514cc467331 Mon Sep 17 00:00:00 2001 From: markusbloch <> Date: Wed, 9 Jan 2019 16:32:22 +0000 Subject: [PATCH] FB_CALLMONITOR: fix error on Perl version 5.14 (Forum: #95595) git-svn-id: https://svn.fhem.de/fhem/trunk@18194 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/72_FB_CALLMONITOR.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/72_FB_CALLMONITOR.pm b/fhem/FHEM/72_FB_CALLMONITOR.pm index a7cffa298..dd98e3598 100755 --- a/fhem/FHEM/72_FB_CALLMONITOR.pm +++ b/fhem/FHEM/72_FB_CALLMONITOR.pm @@ -1852,7 +1852,6 @@ sub FB_CALLMONITOR_getSIDviaTR064($) } return undef; - } ##################################### @@ -1887,13 +1886,13 @@ sub FB_CALLMONITOR_downloadImageURLs($$) } foreach my $url (keys %{$hash->{helper}{IMAGE_URLS}}) - { + { my ($err, $file, $param) = FB_CALLMONITOR_requestHTTPviaTR064($hash, $url."&".$sid, undef, undef, 0, $testPassword); if($err) { Log3 $name, 3, "FB_CALLMONITOR ($name) - error while requesting image URL $url via TR064: $err"; - continue; + next; } if($param->{httpheader} =~ /Content-Disposition: attachment; filename="[^"\s]+(\.\w+)"$/m)