Author: turnstep
Date: Wed May 7 20:39:20 2008
New Revision: 11216
Modified:
DBD-Pg/trunk/t/dbdpg_test_setup.pl
Log:
As a last resort, try for an initdb in the path.
Modified: DBD-Pg/trunk/t/dbdpg_test_setup.pl
==============================================================================
--- DBD-Pg/trunk/t/dbdpg_test_setup.pl (original)
+++ DBD-Pg/trunk/t/dbdpg_test_setup.pl Wed May 7 20:39:20 2008
@@ -191,8 +191,7 @@
## Use the initdb found by App::Info
my $initdb = $ENV{PGINITDB} || '';
if (!$initdb or ! -e $initdb) {
- $@ = 'Could not find an initdb executable to create a
test database';
- last GETHANDLE;
+ $initdb = 'initdb';
}
$info = '';
eval {
