Changeset 23890

Timestamp:

Apr 16, 2009, 3:48:29 PM (17 years ago)

Author:

Paul Price

Message:

Resolve name before moving.

File:

• trunk/ippScripts/scripts/receive_file.pl (modified) (1 diff)

trunk/ippScripts/scripts/receive_file.pl

@@ -114 +114 @@
     foreach my $file ( @files ) {
         my $from = "$tempdir/$file"; # Source for file
-        my $to = "$workdir/$file"; # Target destination for file
-        $ipprc->file_prepare( $to );
+        my $target = "$workdir/$file"; # Target destination for file
+        my $to = $ipprc->file_prepare( $target ); # Target for move
         system("mv $from $to") == 0 or die "Unable to move $file into workdir $workdir: $!\n";
     }