--- loncom/interface/lonsupportreq.pm	2004/07/03 20:57:05	1.3
+++ loncom/interface/lonsupportreq.pm	2004/07/09 21:08:24	1.4
@@ -529,10 +529,16 @@ END
 #        }
 #    }
     $msg->subject('[LON-CAPA] - support request');
+    # ->open can cause an sh launch which can pass all of %ENV allong
+    # which can be to large for /bin/sh's little mind
+    my %oldENV=%ENV;
+    undef(%ENV);
     if (my $fh = $msg->open()) {
-        print $fh $supportmsg;
+	print $fh $supportmsg;
         $fh->close;
     }
+    %ENV=%oldENV;
+    undef(%oldENV);
     $r->print(<<END);
  <b>Your support request contained the following information</b>:<br /><br />
  <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">