--- loncom/imspackages/imsprocessor.pm	2004/05/11 09:57:52	1.8
+++ loncom/imspackages/imsprocessor.pm	2004/08/04 17:34:29	1.9
@@ -100,8 +100,14 @@ sub expand_zip {
     my ($tempdir,$filename) = @_;
     my $zipfile = "$tempdir/$filename";
     if ($filename =~ m|\.zip$|i) {
+    # unzip can cause an sh launch which can pass along all of %ENV
+    # which can be too large for /bin/sh to handle
+        my %oldENV=%ENV;
+        undef(%ENV);
         open(OUTPUT, "unzip -o $zipfile -d $tempdir  2> /dev/null |");
         close(OUTPUT);
+        %ENV=%oldENV;
+        undef(%oldENV);
     } else {
         return 'nozip';
     }