Changeset 18329 for lang/perl

Show
Ignore:
Timestamp:
08/27/08 20:45:29 (3 months ago)
Author:
mattn
Message:

Use default values for 'run_after' and 'grabbed_until'.
I've got an error as following when not specified them.

DBD::mysql::st execute failed: Field 'run_after' doesn't have a default value at xxx

my environment:

OS : Windows XP
MySQL: version 5.2
Perl : version 5.10

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/TheSchwartz-Simple/trunk/lib/TheSchwartz/Simple.pm

    r18325 r18329  
    3030    } 
    3131    $job->arg( Storable::nfreeze($job->arg) ) if ref $job->arg; 
     32 
     33    # Use default value if 'run_after' or 'grabbed_until' is not specified 
     34    $job->run_after( time ) unless $job->run_after; 
     35    $job->grabbed_until( 0 ) unless $job->grabbed_until; 
    3236 
    3337    for my $dbh (@{$self->{databases}}) {