--- fuse-comp.pl	2007/07/09 15:41:01	18
+++ 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,7 +162,7 @@
 		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);
 	close($fh);