[LON-CAPA-cvs] cvs: loncom /imspackages imsprocessor.pm

[raeburn]

raeburn		Wed Aug  4 13:34:29 2004 EDT

  Modified files:              
    /loncom/imspackages	imsprocessor.pm 
  Log:
  Fix for an oversized %ENV when launching unzip. Required for 1.2
  
  
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.8 loncom/imspackages/imsprocessor.pm:1.9
--- loncom/imspackages/imsprocessor.pm:1.8	Tue May 11 05:57:52 2004
+++ loncom/imspackages/imsprocessor.pm	Wed Aug  4 13:34:29 2004
@@ -100,8 +100,14 @@
     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';
     }