[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 28 Sep 2006 20:03:56 -0000
albertel Thu Sep 28 16:03:56 2006 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- forward port 1.782.2.2
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.784 loncom/lonnet/perl/lonnet.pm:1.785
--- loncom/lonnet/perl/lonnet.pm:1.784 Wed Sep 27 21:38:59 2006
+++ loncom/lonnet/perl/lonnet.pm Thu Sep 28 16:03:55 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.784 2006/09/28 01:38:59 albertel Exp $
+# $Id: lonnet.pm,v 1.785 2006/09/28 20:03:55 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -7189,7 +7189,7 @@
chomp($configline);
if ($configline) {
my ($host,$type) = split(':',$configline,2);
- if ($type eq '') { $type = 'default' };
+ if (!defined($type) || $type eq '') { $type = 'default' };
push(@{ $spareid{$type} }, $host);
}
}