Changeset 23992 for lang

Show
Ignore:
Timestamp:
11/18/08 00:19:43 (5 years ago)
Author:
tokuhirom
Message:

better error handling

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/MENTA/trunk/plugins/sql.pl

    r23776 r23992  
    4040    my $dbh = sql_dbh(); 
    4141    my $sth = $dbh->prepare($sql) or die $dbh->errstr; 
    42     $sth->execute(@params); 
     42    $sth->execute(@params) or die $dbh->errstr; 
    4343    my @res; 
    4444    while (my $row = $sth->fetchrow_hashref) {