--- fuse-comp.pl	2007/07/16 08:24:08	35
+++ fuse-comp.pl	2007/07/16 08:34:47	36
@@ -10,7 +10,7 @@
 use PerlIO::gzip;
 use File::Path;
 use Data::Dump qw/dump/;
-use Carp qw/confess/;
+use Carp qw/confess cluck/;
 use IO::File;
 use Getopt::Long;
 
@@ -47,7 +47,7 @@
 sub real_name {
 	my ( $dir, $name ) = @_;
 	if ( -e "$dir/${name}.gz" ) {
-		confess "ASSERT: unexpected $dir/$name exists" if -e "$dir/$name";
+		cluck "ASSERT: unexpected $dir/$name exists" if -e "$dir/$name";
 		return "${name}.gz";
 	}
 	if ( $name =~ m/\.gz$/ ) {