--- fuse-comp.pl 2007/07/09 13:45:53 17 +++ fuse-comp.pl 2007/07/09 15:41:01 18 @@ -164,7 +164,6 @@ } warn ">>> open abs path: $path [", -e $path ? -s $path : 'new' , "]\n"; return -$! unless sysopen($fh , $path, $mode); - warn ">>> after open [",-s $path, "]\n"; close($fh); $pending->{$file}->{path} = $path; @@ -219,9 +218,20 @@ sub x_symlink { return symlink(shift,fixup(shift)) ? 0 : -$!; } sub x_rename { - my ($old) = fixup(shift); - my ($new) = fixup(shift); - my ($err) = rename($old,$new) ? 0 : -ENOENT(); + my ($old,$new) = @_; + my $old_path = fixup($old); + my $new_path = fixup($new); + $new_path .= '.gz' if ( $old_path =~ m/\.gz$/ && $new_path !~ m/\.gz$/ ); + + my $err = rename($old_path,$new_path) ? 0 : -ENOENT(); + warn "## rename( $old_path => $new_path ) = $err\n"; + + my $tmp = $mount->{tmp} . '/' . $old; + if ( -e $tmp ) { + my $new_tmp = $mount->{tmp} . '/' . $new; + rename $tmp, $new_tmp || confess "can't rename $tmp -> $new_tmp : $!"; + } + return $err; } sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! }