regress/base/lock.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

if ($0 eq __FILE__) {
    use FML::Lock;
    my $lockobj = new FML::Lock;

    my $r = $lockobj->lock( { file => '/tmp/a' });
    if ($r) { 
	print STDERR "lock ($$) o.k.\n";
    }
    else {
	print STDERR $lockobj->error, "\n";
    }

    system "date"; sleep 1;

    $r = $lockobj->unlock( { file => '/tmp/a' });
    if ($r) { 
	print STDERR "unlock o.k.\n";
    }
    else {
	print STDERR $lockobj->error, "\n";
    }
}