|
From: Chris W. <la...@us...> - 2001-10-26 03:21:37
|
Update of /cvsroot/openinteract/SPOPS/eg/My
In directory usw-pr-cvs1:/tmp/cvs-serv30023/eg/My
Modified Files:
LDAPConnect.pm
Log Message:
cosmetic
Index: LDAPConnect.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/eg/My/LDAPConnect.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** LDAPConnect.pm 2001/10/23 14:25:31 1.1
--- LDAPConnect.pm 2001/10/26 03:21:35 1.2
***************
*** 26,32 ****
sub global_datasource_handle {
my ( $class, $connect_key ) = @_;
! unless ( $connect_key ) {
! cluck "Cannot retrieve handle without connect key!\n";
! }
unless ( $HANDLES{ $connect_key } ) {
my $ldap_info = $class->connection_info( $connect_key );
--- 26,31 ----
sub global_datasource_handle {
my ( $class, $connect_key ) = @_;
! cluck "Cannot retrieve handle without connect key!\n" unless ( $connect_key );
!
unless ( $HANDLES{ $connect_key } ) {
my $ldap_info = $class->connection_info( $connect_key );
|