Changeset 8149 for lang/perl/App-MadEye

Show
Ignore:
Timestamp:
03/19/08 18:02:45 (8 months ago)
Author:
tokuhirom
Message:

ロガーにログだすようにしてみるよ

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-MadEye/trunk/lib/App/MadEye/Util.pm

    r8033 r8149  
    2121    }; 
    2222    if ($@) { 
    23         warn $@; 
     23        my $err = $@; 
     24        App::MadEye->context->log('error' => $err); 
     25        warn $err; 
    2426    } 
    2527    alarm $last_alarm; # restore