#!/usr/bin/env perl use 5.010001; use warnings; use strict; use utf8; 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 =head1 NAME narada-lock - run command under shared lock =head1 VERSION This document describes narada-lock version v2.3.8 =head1 USAGE narada-lock [/path/to/commands param ...] =head1 DESCRIPTION Should be executed in project deploy directory (or Narada 1.x project root directory). Wrapper for running other processes (usually shell-script) with shared_lock(). When executed without params will run `bash --norc` with '[SHARED]' prefix in $PS1. Exit status of narada-lock will be same as exit status of executed command. =head1 CONFIGURATION AND ENVIRONMENT .lock .lock.new =head1 COMPATIBILITY Narada 1.x project use C instead of C<.lock>. Narada 1.x project use C instead of C<.lock.new>. =head1 SUPPORT =head2 Bugs / Feature Requests Please report any bugs or feature requests through the issue tracker at L. You will be notified automatically of any progress on your issue. =head2 Source Code This is open source software. The code repository is available for public review and contribution under the terms of the license. Feel free to fork the repository and submit pull requests. L git clone https://github.com/powerman/Narada.git =head2 Resources =over =item * MetaCPAN Search L =item * CPAN Ratings L =item * AnnoCPAN: Annotated CPAN documentation L =item * CPAN Testers Matrix L =item * CPANTS: A CPAN Testing Service (Kwalitee) L =back =head1 AUTHOR Alex Efros Epowerman@cpan.orgE =head1 COPYRIGHT AND LICENSE This software is Copyright (c) 2008- by Alex Efros Epowerman@cpan.orgE. This is free software, licensed under: The MIT (X11) License =cut