wibble

1 files changed, 2 insertions, 1 deletions

diff --git a/lib/Fripost/Schema.pm b/lib/Fripost/Schema.pm
index 288aa1e..14caccd 100755
--- a/lib/Fripost/Schema.pm
+++ b/lib/Fripost/Schema.pm
@@ -111,6 +111,7 @@ sub passwd {
 
 # Disconnect to the LDAP server.
 sub unbind {
+    $_[0]->_dsay( "Unbinding from the LDAP server." );
     $_[0]->{_ldap}->unbind();
 }
 
@@ -120,7 +121,7 @@ sub _dsay {
     my $self = shift;
     return unless (exists $self->{_options}->{debug})
               and $self->{_options}->{debug};
-    print STDERR "Debug: ";
+    print STDERR "DEBUG: ";
     say STDERR @_;
 }