--- loncom/lonnet/perl/lonnet.pm	2003/09/11 07:57:03	1.411
+++ loncom/lonnet/perl/lonnet.pm	2003/09/15 18:43:54	1.412
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.411 2003/09/11 07:57:03 albertel Exp $
+# $Id: lonnet.pm,v 1.412 2003/09/15 18:43:54 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -246,9 +246,13 @@ sub critical {
     return $answer;
 }
 
+#
 # -------------- Remove all key from the env that start witha lowercase letter
-#                (Which is alweways a lon-capa value)
+#                (Which is always a lon-capa value)
+
 sub cleanenv {
+#    unless (defined(&Apache::exists_config_define("MODPERL2"))) { return; }
+#    unless (&Apache::exists_config_define("MODPERL2")) { return; }
     foreach my $key (keys(%ENV)) {
 	if ($key =~ /^[a-z]/) {
 	    delete($ENV{$key});