view release on metacpan or  search on metacpan

bin/slaughter  view on Meta::CPAN

798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
    #
    # Open the lock-file exclusively.
    #
    open( LOCK, ">>", $lockfile ) or
      die "Failed to open lockfile at $lockfile - $!";
 
    #
    # Lock the file.
    #
    flock( LOCK, LOCK_EX | LOCK_NB ) or
      die "$0 already running - Lock file $lockfile is locked";
 
 
    #
    # The file will be closed when slaughter terminates so although it
    # looks like we're leaking a handle here this is intentional.
    #
 
}
 
=begin doc