From:	kwilliams@cvs.perl.org	Date:	Wed Jul 30 21:47:51 2008
Subject:	[svn:ExtUtils-ParseXS] r11615 - ExtUtils-ParseXS/trunk/t

Author: kwilliams
Date: Wed Jul 30 20:47:51 2008
New Revision: 11615

Modified:
   ExtUtils-ParseXS/trunk/t/basic.t

Log:
Don't clean up files if $ENV{PERL_NO_CLEANUP} is set

Modified: ExtUtils-ParseXS/trunk/t/basic.t
==============================================================================
--- ExtUtils-ParseXS/trunk/t/basic.t	(original)
+++ ExtUtils-ParseXS/trunk/t/basic.t	Wed Jul 30 20:47:51 2008
@@ -64,13 +64,17 @@
       }
     }
   }
-  1 while unlink $obj_file;
-  1 while unlink $lib_file;
+  unless ($ENV{PERL_NO_CLEANUP}) {
+    1 while unlink $obj_file;
+    1 while unlink $lib_file;
+  }
 } else {
   skip "Skipped can't find a C compiler & linker", 1 for 1..7;
 }
 
-1 while unlink $source_file;
+unless ($ENV{PERL_NO_CLEANUP}) {
+  1 while unlink $source_file;
+}
 
 #####################################################################