Changeset 29189

Timestamp:

Sep 22, 2010, 8:22:46 AM (16 years ago)

Author:

rhenders

Message:

Honouring save_temps flag

File:

• trunk/ippToPsps/perl/ippToPsps/Batch.pm (modified) (2 diffs)

trunk/ippToPsps/perl/ippToPsps/Batch.pm

@@ -461 +461 @@
     # run IppToPsps program TODO should not need
     my $success = $self->runProgram($inputFile, $resultsFilePath);
-    unlink $inputFile;
+    if (!$self->{_save_temps}) {unlink $inputFile};
 
     if ($success) {
@@ -480 +480 @@
 
     close $resultsFile;
-    unlink $resultsFile;
+    if (!$self->{_save_temps}) {unlink $resultsFile};
 
     return $success;