--- loncom/lonnet/perl/lonnet.pm	2001/12/05 14:48:28	1.182
+++ loncom/lonnet/perl/lonnet.pm	2001/12/05 21:00:23	1.183
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.182 2001/12/05 14:48:28 matthew Exp $
+# $Id: lonnet.pm,v 1.183 2001/12/05 21:00:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -62,7 +62,7 @@
 # 11/17,11/20,11/22,11/29 Gerd Kortemeyer
 # 12/5 Matthew Hall
 #
-# $Id: lonnet.pm,v 1.182 2001/12/05 14:48:28 matthew Exp $
+# $Id: lonnet.pm,v 1.183 2001/12/05 21:00:23 albertel Exp $
 #
 ###
 
@@ -2692,7 +2692,7 @@ BEGIN {
     my $config=Apache::File->new("$perlvar{'lonTabDir'}/filetypes.tab");
 
     while (my $configline=<$config>) {
-       next if (/^\#/);
+       next if ($configline =~ /^\#/);
        chomp($configline);
        my ($ending,$emb,@descr)=split(/\s+/,$configline);
        if ($descr[0] ne '') {