--- loncom/lonnet/perl/lonnet.pm 2005/02/09 22:04:22 1.596 +++ loncom/lonnet/perl/lonnet.pm 2005/02/09 22:39:49 1.597 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.596 2005/02/09 22:04:22 albertel Exp $ +# $Id: lonnet.pm,v 1.597 2005/02/09 22:39:49 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5683,7 +5683,7 @@ BEGIN { next if ($configline =~ /^(\#|\s*$)/); chomp($configline); my ($id,$domain,$role,$name)=split(/:/,$configline); - $name=~s/\s^//g; + $name=~s/\s//g; if ($id && $domain && $role && $name) { my $ip = gethostbyname($name); if (length($ip) ne 4) {