Changeset 14627 for lang/perl/App-MadEye

Timestamp:

06/26/08 10:59:43 (5 months ago)

Author:

tokuhirom

Message:

use name :)

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Check/Flock.pm (modified) (2 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Check/Flock.pm

@@ -4 +4 @@
 use base qw/App::MadEye::Plugin::Base/;
 use LWP::UserAgent;
+use Fcntl ":flock";
 
 sub check : Hook('check') {
@@ -10 +11 @@
     my $file_name = $self->config->{config}->{file} or die "missing file";
     open $self->{lock_fh} , '>' , $file_name or die $!;
-    my $status = flock( $self->{lock_fh}, 6 ) or die "cannot get the lock";
+    my $status = flock( $self->{lock_fh}, LOCK_EX|LOCK_NB ) or die "cannot get the lock";
 }