[LON-CAPA-cvs] cvs: loncom /configuration Configuration.pm

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 22 Jul 2003 19:21:10 -0000


matthew		Tue Jul 22 15:21:10 2003 EDT

  Modified files:              
    /loncom/configuration	Configuration.pm 
  Log:
  Fix @list[0] nonsense to keep perl from warning me about it.
  
  
Index: loncom/configuration/Configuration.pm
diff -u loncom/configuration/Configuration.pm:1.10 loncom/configuration/Configuration.pm:1.11
--- loncom/configuration/Configuration.pm:1.10	Fri Apr 11 22:45:31 2003
+++ loncom/configuration/Configuration.pm	Tue Jul 22 15:21:10 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Configuration file reader
 #
-# $Id: Configuration.pm,v 1.10 2003/04/12 02:45:31 foxr Exp $
+# $Id: Configuration.pm,v 1.11 2003/07/22 19:21:10 matthew Exp $
 #
 #
 # Copyright Michigan State University Board of Trustees
@@ -34,7 +34,7 @@
 
 package LONCAPA::Configuration;
 
-$VERSION = sprintf("%d.%02d", q$Revision: 1.10 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);
 
 use strict;
 
@@ -94,7 +94,7 @@
 		{
 		    my @list = @items; # probably not needed but I'm unsure of 
 		    # about the scope of item so...
-		    $HostsTab{@list[0]} = \@list; 
+		    $HostsTab{$list[0]} = \@list; 
 		}
 	    }
 	}