[TWiki-Dev] [SVN] MichaelDaum r11719 - twiki/branches/MAIN/bin

[<de...@de...>]

Author: MichaelDaum
Date: 2006-10-13 20:41:34 -0500 (Fri, 13 Oct 2006)
New Revision: 11719

Modified:
   twiki/branches/MAIN/bin/twiki
Log:
Item3000: fixed uninit variables when logging in



Modified: twiki/branches/MAIN/bin/twiki
===================================================================
--- twiki/branches/MAIN/bin/twiki	2006-10-13 12:47:26 UTC (rev 11718)
+++ twiki/branches/MAIN/bin/twiki	2006-10-14 01:41:34 UTC (rev 11719)
@@ -177,7 +177,7 @@
   #writeDebug("package=$package, function=$function");
 
   # lazy compilation
-  if ($package ne '' && !$isInitialized{$package}) {
+  if ($package && !$isInitialized{$package}) {
     #writeDebug("initializing package $package");
     $isInitialized{$package} = 1;
     eval "use $package;";
@@ -185,7 +185,9 @@
   }
 
   # do it
-  my $sub = $package.'::'.$function;
+  my $sub;
+  $sub .= $package.'::' if $package;
+  $sub .= $function;
   TWiki::UI::run(\&$sub, $function => 1);
 
   #writeDebug("counter=$counter");