Mercurial > hg > minc-tools

changeset 647:0cb2d3a33151

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added sleep between tape rewind and fsf (try to eliminate some failures).
author neelin <neelin>
date Tue, 25 Oct 1994 14:17:25 +0000
parents 0f0e06a810e6
children 5165ca242e6b
files conversion/mri_to_minc/mri_to_minc.pl
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/conversion/mri_to_minc/mri_to_minc.pl
+++ b/conversion/mri_to_minc/mri_to_minc.pl
@@ -81,7 +81,7 @@
     # Constants
     $tape_block_size = 8192;
     $tape_sleep = 1;
-    $retry_sleep = 2;
+    $retry_sleep = 1;
     $nretries = 4;
     $nreposition_retries = 4;
 
@@ -124,6 +124,7 @@
         foreach $reposloop (0..$nreposition_retries-1) {
             select(undef, undef, undef, $retry_sleep);
             $tmp_status = system("mt -t $tapedrive rewind");
+            select(undef, undef, undef, $retry_sleep);
             $tmp_status = system("mt -t $tapedrive fsf $cur_file_number")
                 unless ($tmp_status != 0);
             if ($tmp_status == 0) {last;}