55_GDS.pm: fixed error in getListForecastStations #44523

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10003 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2015-11-25 12:41:15 +00:00
parent 911c8f3a2b
commit 12cc7f2d77

View File

@@ -42,6 +42,8 @@ use Archive::Extract;
use Net::FTP; use Net::FTP;
use XML::Simple; use XML::Simple;
use Data::Dumper;
eval "use GDSweblink"; eval "use GDSweblink";
no if $] >= 5.017011, warnings => 'experimental'; no if $] >= 5.017011, warnings => 'experimental';
@@ -1882,6 +1884,7 @@ sub getListForecastStations($) {
eval { eval {
foreach my $region (@regions) { foreach my $region (@regions) {
$data = "";
my $areaAndTime = 'Daten_'.$region.'_morgen_spaet'; my $areaAndTime = 'Daten_'.$region.'_morgen_spaet';
while(($k, $v) = each %allForecastData){ while(($k, $v) = each %allForecastData){
if ($k eq $areaAndTime) { if ($k eq $areaAndTime) {