Sends new arguments to fastswim and imswim so that the right directories are

used.
23 years ago · f54509d9bc
1 changed files with 2 additions and 2 deletions
--- a/SWIM/DB_Init.pm
+++ b/SWIM/DB_Init.pm
@ -630,11 +630,11 @@ sub md {
         }							
         close(TRANSFER);
         if (!$commands->{"lowmem"}) {
-          system $fastswim, "--transfer", $argument2, $tmp;
+          system $fastswim, "--transfer", $argument2, $tmp, $main::home;
         }
         else {
          print STDERR "Gathering the file(s)/dir(s)\n";
-          system $imswim, $argument2, $tmp;
+          system $imswim, $argument2, $tmp, $main::home;
          system $slowswim, $tmp, $sort;
         }
     }