view release on metacpan or  search on metacpan

bin/narada-lock  view on Meta::CPAN

our $VERSION = 'v2.3.8';

use FindBin;
use lib "$FindBin::Bin/../lib/perl5";
use Narada;
use Narada::Lock qw( shared_lock child_inherit_lock );

Narada::detect();

local @ARGV = @ARGV ? @ARGV : ('env', 'PS1=[SHARED] \u@\h \w \$ ', 'bash', '--norc');

shared_lock();
child_inherit_lock(1);
exec @ARGV;


__END__

=encoding utf8

bin/narada-lock-exclusive  view on Meta::CPAN

our $VERSION = 'v2.3.8';

use FindBin;
use lib "$FindBin::Bin/../lib/perl5";
use Narada;
use Narada::Lock qw( exclusive_lock unlock_new );

Narada::detect();

local @ARGV = @ARGV ? @ARGV : ('env', 'PS1=[LOCKED] \u@\h \w \$ ', 'bash', '--norc');

exclusive_lock();
{ local $ENV{NARADA_SKIP_LOCK} = 1;
  system @ARGV;
}
unlock_new();
exit $? >> 8;   ## no critic (ProhibitMagicNumbers)


__END__