← Back to branch summary

~ubuntu-branches/ubuntu/precise/libdbd-pg-perl/precise

« back to all changes in this revision

Viewing changes to t/dbdpg_test_setup.pl

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2008-05-11 14:32:37 UTC
  • mfrom: (1.1.8 upstream)
  • Revision ID: james.westby@ubuntu.com-20080511143237-knulflfju6qi2s0p
Tags: 2.7.0-1
* New upstream release.
* Refresh lintian override.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/dbdpg_test_setup.pl
191
191
                ## Use the initdb found by App::Info
192
192
                my $initdb = $ENV{PGINITDB} || '';
193
193
                if (!$initdb or ! -e $initdb) {
194
 
                        $@ = 'Could not find an initdb executable to create a test database';
195
 
                        last GETHANDLE;
 
194
                        $initdb = 'initdb';
196
195
                }
197
196
                $info = '';
198
197
                eval {
206
205
 
207
206
                ## Make sure pg_ctl is available as well before we go further
208
207
                if (! -e $pg_ctl) {
209
 
                  $@ = 'Could not find a pg_ctl executable to start the test database';
210
 
                  last GETHANDLE;
 
208
                        $pg_ctl = 'pg_ctl';
211
209
                }
212
210
                $info = '';
213
211
                eval {
283
281
                        ## Assume this is already good to go
284
282
                }
285
283
                elsif ($info !~ /pg_ctl/) {
286
 
                        $@ = 'initdb did not give a pg_ctl string';
 
284
                        $@ = "initdb did not give a pg_ctl string: $info";
287
285
                        last GETHANDLE;
288
286
                }
289
287