view release on metacpan or  search on metacpan

README  view on Meta::CPAN

  Or if your man system is configured in a compatible way:

    $ man IPC::MMA


NOTES
    This module requires perl 5.6 or later.

    The initial use of the array functions of this module was to track
    related-file accesses on our Apache web server, and thus optimize
    use of the HTTP keep-alive feature.   Watch CPAN for this module
    in the future (its working name is Apache2::CloseKeepAlive).

    Craig MacKenna <craig@animalhead.com>
    Jan 4 2010

t/09_lock.t  view on Meta::CPAN

    # create final result message
    my $mes = $myvar==97 ? "id 1 couldn't upgrade read to write lock"
            : $myvar==98 ? "id 3 couldn't get read lock"
            : $myvar>=90 ? "id ".($myvar-90)." couldn't unlock"
            : $myvar< 25 ? "state got stuck at $myvar"
            : "id 1 write lock "
            . ($myvar == 25 ? "was granted before a later id 3 read lock"
                            : "had to wait for a later id 3 read lock");

    # report the test result (2 results are OK)
    ok ($myvar == 25 || $myvar == 26, "$mes: " . ($st ? "process $st still alive" 
                                                      : "timer=$timer of ".TIMEOUT));

    kill 9, $pid[1], $pid[2], $pid[3];
    mm_destroy ($mm);
}
# success on test 11 means that a process can upgrade a read lock
#   to a write lock without first releasing the read lock
#   but online words say this upgrade is subject to an interloper
#   (which is indicated by a 'had to wait for a later' message)