[fayland commit] r957 - in trunk/CPAN/TheSchwartz-Moosified: lib/TheSchwartz t

[codesite...@google.com]

Author: fayland
Date: Tue Feb 17 06:22:25 2009
New Revision: 957

Modified:
trunk/CPAN/TheSchwartz-Moosified/lib/TheSchwartz/Moosified.pm
trunk/CPAN/TheSchwartz-Moosified/t/Utils.pm

Log:
PrintError => 0

Modified: trunk/CPAN/TheSchwartz-Moosified/lib/TheSchwartz/Moosified.pm
==============================================================================
--- trunk/CPAN/TheSchwartz-Moosified/lib/TheSchwartz/Moosified.pm (original)
+++ trunk/CPAN/TheSchwartz-Moosified/lib/TheSchwartz/Moosified.pm Tue Feb
17 06:22:25 2009
@@ -121,7 +121,7 @@
bind_param_attr( $dbh, $col ),
);
}
- $sth->execute();
+ $sth->execute() or die $dbh->errstr;

my $jobid = insert_id( $dbh, $sth, "job", "jobid" );
$job->jobid($jobid);

Modified: trunk/CPAN/TheSchwartz-Moosified/t/Utils.pm
==============================================================================
--- trunk/CPAN/TheSchwartz-Moosified/t/Utils.pm (original)
+++ trunk/CPAN/TheSchwartz-Moosified/t/Utils.pm Tue Feb 17 06:22:25 2009
@@ -18,7 +18,7 @@
my $tmp = File::Temp->new;
$tmp->close();
my $tmpf = $tmp->filename;
- my $dbh = DBI->connect("dbi:SQLite:dbname=$tmpf", '', '', {RaiseError
=> 1}) or die $DBI::err;
+ my $dbh = DBI->connect("dbi:SQLite:dbname=$tmpf", '', '', {RaiseError
=> 1, PrintError => 0}) or die $DBI::err;

# work around for DBD::SQLite's resource leak
tie my %blackhole, 't::Utils::Blackhole';