55_GDS.pm: fixed error in getListForecastStations #44523

git-svn-id: https://svn.fhem.de/fhem/trunk@10003 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2015-11-25 12:41:15 +00:00
parent d6a90e23f5
commit cfe242e8da

View File

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