Changeset 8190 for lang/perl/App-MadEye

Show
Ignore:
Timestamp:
03/20/08 17:29:39 (9 months ago)
Author:
tokuhirom
Message:

死なないで報告してほしい

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Agent/MySQLSlave.pm

    r8133 r8190  
    2020        $password, 
    2121        { RaiseError => 1, AutoCommit => 1 } 
    22     ) or die; 
     22    ) or return 'cannot connect'; 
    2323    my $sth = $dbh->prepare(q{SHOW SLAVE STATUS;}); 
    24     $sth->execute() or die $dbh->errstr; 
     24    $sth->execute() or return 'DBI error: ' . $dbh->errstr; 
    2525 
    2626    if (my $row = $sth->fetchrow_hashref) {