[Rt-commit] r7170 - rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT

[clkao at bestpractical.com]

Author: clkao
Date: Mon Mar  5 19:47:10 2007
New Revision: 7170

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm

Log:
pg init should work now.

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Test.pm	Mon Mar  5 19:47:10 2007
@@ -44,8 +44,9 @@
     RT::Handle->drop_db( $dbh, { force => 1 } );
     RT::Handle->create_db( $dbh );
 
-    my $dbh = _get_dbh(RT::Handle->get_rt_dsn,
-		       $ENV{DB_DBA}, $ENV{DB_DBA_PASS});
+    $dbh->disconnect;
+    $dbh = _get_dbh(RT::Handle->get_rt_dsn,
+		    $ENV{DB_DBA}, $ENV{DB_DBA_PASS});
 
     RT->ConnectToDatabase;
     $RT::Handle->insert_schema($dbh);