diff options
Diffstat (limited to 'lib/Fripost/Schema.pm')
-rwxr-xr-x | lib/Fripost/Schema.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Fripost/Schema.pm b/lib/Fripost/Schema.pm index 6a92be7..f8649b7 100755 --- a/lib/Fripost/Schema.pm +++ b/lib/Fripost/Schema.pm @@ -35,10 +35,10 @@ sub new { my $self = {_options => $h}; bless $self, $class; - + my $ldap = Net::LDAP->new ( $h->{server_host} ) or die "Error: Cannot initialize connection to LDAP server at `" - .$h->{server_host}. "'.\n"; + .$h->{server_host}. "'.\n"; my $mesg; if ( (defined $h->{bind_dn}) and $h->{bind_dn} ne '' ) { @@ -61,7 +61,7 @@ sub new { $mesg = $ldap->bind(); } die "Error: " .$mesg->error. "\n" if $mesg->code; - + $self->{_ldap} = $ldap; return $self; } @@ -146,7 +146,7 @@ sub _dsay { =head1 NAME -Fripost::Schema - +Fripost::Schema - =head1 AUTHOR |