From: <rv...@us...> - 2009-09-26 04:42:01
|
Revision: 187 http://treebase.svn.sourceforge.net/treebase/?rev=187&view=rev Author: rvos Date: 2009-09-26 04:41:53 +0000 (Sat, 26 Sep 2009) Log Message: ----------- Debugging perly login methods Modified Paths: -------------- trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/DBIUtil.pm Modified: trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/DBIUtil.pm =================================================================== --- trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/DBIUtil.pm 2009-09-26 04:04:53 UTC (rev 186) +++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/DBIUtil.pm 2009-09-26 04:41:53 UTC (rev 187) @@ -16,7 +16,6 @@ my $user = $opts{user} || $login_info_class->user; my $pass = $opts{pass} || $login_info_class->pass; my $dsn = $opts{dsn} ? sprintf $opts{dsn}, $user, $pass : $login_info_class->dsn($user, $pass); - my $h = DBI->connect($dsn); $h->{private_cipres_treebase_dbiutil_username} = $user if $h; return $h; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |