Changeset 8133 for lang/perl/App-MadEye

Show
Ignore:
Timestamp:
03/19/08 11:59:32 (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

    r8074 r8133  
    1313    my $user     = $self->config->{config}->{user} or die "missing user"; 
    1414    my $password = $self->config->{config}->{password}; 
    15     my $threshold = $self->config->{config}->{threshold}; 
     15    my $threshold = $self->config->{config}->{threshold} or die "missing threshold"; 
    1616 
    1717    my $dbh = DBI->connect(