guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

07/09: gnu: Add perl-file-fcntllock.


From: guix-commits
Subject: 07/09: gnu: Add perl-file-fcntllock.
Date: Sun, 9 Oct 2022 16:33:46 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit fa3ba0143fee0b8ccbd0371cc37c1435d4f2a68f
Author: Thiago Jung Bauermann <bauermann@kolabnow.com>
AuthorDate: Sun Oct 9 02:08:23 2022 -0300

    gnu: Add perl-file-fcntllock.
    
    * gnu/packages/perl.scm (perl-file-fcntllock): New variable.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/perl.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 64868607dc..5f3666fe3b 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11641,6 +11641,28 @@ method calls.  Furthermore, a partial sequence can be 
created and held, and
 used as the head of many different sequences.")
     (license license:perl-license)))
 
+(define-public perl-file-fcntllock
+  (package
+    (name "perl-file-fcntllock")
+    (version "0.22")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/J/JT/JTT/File-FcntlLock-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "1pxwknq4lw0wqpkh8pf18qsjf9g503vx6a5184vvffprzwpbp6ls"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/File-FcntlLock";)
+    (synopsis "File locking with fcntl(2)")
+    (description "File locking in Perl is usually done using the @code{flock}
+function.  Unfortunately, this only allows locks on whole files and is often
+implemented in terms of the @code{flock(2)} system function which has some
+shortcomings (especially concerning locks on remotely mounted file systems)
+and slightly different behaviour than @code{fcntl(2)}.")
+    (license license:perl-license)))
+
 (define-public perl-font-ttf
   (package
     (name "perl-font-ttf")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]