From a1cee8071f753b80daf374af4bad8458657dd07a Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Wed, 18 Apr 2012 03:37:55 +0200 Subject: wibble --- lib/Fripost/Schema.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/Fripost') 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 @_; } -- cgit v1.2.3