--- fuse-comp.pl	2007/07/09 13:33:13	15
+++ fuse-comp.pl	2007/07/09 15:59:57	19
@@ -19,7 +19,7 @@
 	tmp		=> '/dev/shm/comp',
 };
 
-my $debug = 1;
+my $debug = 0;
 
 my $skip_extensions_regex = qr/\.(?:sw[a-z]|gif|png|jpeg|jpg|avi|rar|zip|bz2|gz|tgz|avi|mpeg|mpg|tmp|temp)$/i;
 
@@ -103,7 +103,7 @@
 
 sub file_copy {
 	my ( $s_opt, $s_path, $d_opt, $d_path ) = @_;
-	warn "## file_copy( $s_opt $s_path [",-s $s_path,"] $d_opt $d_path [",-e $d_path ? -s $d_path : 'new',"])\n";
+	warn "## file_copy( $s_opt $s_path [",-s $s_path,"] $d_opt $d_path [",-e $d_path ? -s $d_path : 'new',"])\n" if $debug;
 	open(my $s, $s_opt, $s_path ) || confess "can't open $s_path: $!\npending = ", dump( $pending );
 	open(my $d, $d_opt, $d_path ) || confess "can't open $d_path: $!";
 	my $buff;
@@ -149,7 +149,7 @@
 		trunc => $mode && O_TRUNC,
 	};
 	my $path = fixup($file);
-	warn "# open( $file, $mode ) pending: ", $pending->{$file}->{open}, " mode $mode: ", dump( $mode_desc )," $path [", -s $path, "]\n";
+	warn "## open( $file, $mode ) pending: ", $pending->{$file}->{open}, " mode $mode: ", dump( $mode_desc )," $path [", -s $path, "]\n" if $debug;
 	my $fh;
 
 	my $tmp = $mount->{tmp} . '/' . $file;
@@ -162,9 +162,8 @@
 		file_copy( '<:gzip', $path, '>', $tmp );
 		$path = $tmp;
 	}
-	warn ">>> open abs path: $path [", -e $path ? -s $path : 'new' , "]\n";
+	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;
@@ -204,7 +203,7 @@
 	return -ENOSYS() unless open($fh,'+<',$pending->{$file}->{path});
 	if($rv = seek( $fh ,$off,SEEK_SET)) {
 		$rv = print( $fh $buf );
-		warn "## ", $pending->{$file}->{path}, " $off ",length( $buf ), "\n" if $debug;
+		warn "## write ", $pending->{$file}->{path}, " $off ",length( $buf ), "\n" if $debug;
 	}
 	$rv = -ENOSYS() unless $rv;
 	close($fh);
@@ -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 : -$! }