Index: trunk/ippToPsps/perl/ippToPsps/Batch.pm
===================================================================
--- trunk/ippToPsps/perl/ippToPsps/Batch.pm	(revision 29188)
+++ trunk/ippToPsps/perl/ippToPsps/Batch.pm	(revision 29189)
@@ -461,5 +461,5 @@
     # run IppToPsps program TODO should not need
     my $success = $self->runProgram($inputFile, $resultsFilePath);
-    unlink $inputFile;
+    if (!$self->{_save_temps}) {unlink $inputFile};
 
     if ($success) {
@@ -480,5 +480,5 @@
 
     close $resultsFile;
-    unlink $resultsFile;
+    if (!$self->{_save_temps}) {unlink $resultsFile};
 
     return $success;