diff --git a/C4/SIP/Trapper.pm b/C4/SIP/Trapper.pm
index 6feaf3ec56..774b3a0c57 100644
--- a/C4/SIP/Trapper.pm
+++ b/C4/SIP/Trapper.pm
@@ -35,7 +35,12 @@ sub PRINT {
     $Log::Log4perl::caller_depth--;
 }
 
-# Supress errors from Log::Log4perl::Appender::Screen
+=head2 BINMODE
+
+    Suppress errors from Log::Log4perl::Appender::Screen
+
+=cut
+
 sub BINMODE {
     my ( $self, $mode ) = @_;
     binmode( STDOUT, $mode );