diff --git a/Agent/Driver/File.pm b/Agent/Driver/File.pm
index 3017002..4b2149e 100644
--- a/Agent/Driver/File.pm
+++ b/Agent/Driver/File.pm
@@ -368,7 +368,7 @@ sub logerr {
 # When `duperr' is true, emit message on the 'output' channel prefixed
 # with WARNING.
 #
-sub logconfess {
+sub logcluck {
     my $self = shift;
     my ($str) = @_;
     $self->emit_output('warning', "WARNING", $str) if $self->duperr;