Small CommandReload bug fixed

git-svn-id: https://svn.fhem.de/fhem/trunk@569 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/fhem.pl

@@ -159,7 +159,7 @@ my $nextat;                     # Time when next timer will be triggered.
 my $intAtCnt=0;
 my %duplicate;                  # Pool of received msg for multi-fhz/cul setups
 my $duplidx=0;                  # helper for the above pool
-my $cvsid = '$Id: fhem.pl,v 1.100 2010-01-21 19:29:47 m_fischer Exp $';
+my $cvsid = '$Id: fhem.pl,v 1.101 2010-01-29 07:37:47 rudolfkoenig Exp $';
 my $namedef =
   "where <name> is either:\n" .
   "- a single device name\n" .
@@ -1319,6 +1319,7 @@ CommandReload($$)
     my $ret=do "$file";
     if(!$ret) {
       Log 1,"Error:Modul $param deactivated:\n $@";
+      use strict "refs";
       return "$@";
     }
 
@@ -1334,12 +1335,10 @@ CommandReload($$)
     $ret = &{ "${fnname}_Initialize" }(\%hash);
     $m = $fnname;
   };
-
-  if($@) {
-    return "$@";
-  }
   use strict "refs";
 
+  return "$@" if($@);
+
   my ($defptr, $ldata);
   if($modules{$m}) {
     $defptr = $modules{$m}{defptr};