[libfile-fcntllock-perl] 02/08: add File::FcntlLock::Any module, trying ::XS, ::Pure and ::Inline

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch fcntl-any
in repository libfile-fcntllock-perl.

commit 043044fd33aacf913cda69b4d64c6e757580925a
Author: Damyan Ivanov <dmn at debian.org>
Date:   Wed Oct 25 21:03:16 2017 +0000

    add File::FcntlLock::Any module, trying ::XS, ::Pure and ::Inline
---
 debian/patches/fcntllock-any.patch | 39 ++++++++++++++++++++++++++++++++++++++
 debian/patches/series              |  1 +
 2 files changed, 40 insertions(+)

diff --git a/debian/patches/fcntllock-any.patch b/debian/patches/fcntllock-any.patch
new file mode 100644
index 0000000..c2e35e0
--- /dev/null
+++ b/debian/patches/fcntllock-any.patch
@@ -0,0 +1,39 @@
+Description: Add File::FcntlLock::Any
+ As discussed in https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=677865,
+ an ::Any module is supposed to be archirecture-independent and try to
+ load ::XS, ::Pure and ::Inline, in that order.
+Author: Damyan Ivanov <dmn at debian.org>
+
+--- /dev/null
++++ b/lib/File/FcntlLock/Any.pm
+@@ -0,0 +1,30 @@
++package File::FcntlLock::Any;
++
++use strict;
++use warnings;
++
++use Config;
++use lib "$Config{libsdirs}/libfile-fcntllock-perl";
++
++my $implementation;
++
++BEGIN {
++    my $impl;
++    for ( qw(XS Pure Inline) ) {
++        if ( eval "use File::FcntlLock::$_; 1" ) {
++            $impl = $_;
++            last;
++        }
++        else {
++            warn "Loading File::FcntlLock::$_: $@" if 0;
++        }
++    }
++
++    die "Unable to find usable implementation" unless $impl;
++
++    $implementation = "File::FcntlLock::$impl";
++    our @ISA = $implementation;
++    warn "Using $implementation" if 0;
++}
++
++1;
diff --git a/debian/patches/series b/debian/patches/series
index 5299247..d19db46 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 spelling.patch
+fcntllock-any.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libfile-fcntllock-perl.git