#!perl -w
$|=1;
use strict;

use DBI;
my $dbh=DBI->connect('dbi:Pg:dbname=test1');
$dbh->{PrintError}=0;
$dbh->do('junk');
print "1";
eval {
    local $dbh->{RaiseError}=1;
    $dbh->do('junk');
    print "2";
};
print " error " if $@;
$dbh->do('junk');
print "3";