[SCM] Debian packaging of libsvn-hooks-perl branch, master, updated. debian/1.05-1-6-gdb479e1

[Angel Abad]

The following commit has been merged in the master branch:
commit e78ce9e100ab1b29247a957e59e987bad8adb61a
Author: Angel Abad <angelabad at gmail.com>
Date:   Sun Aug 28 09:52:15 2011 +0200

    Imported Upstream version 1.07

diff --git a/Changes b/Changes
index 597742d..81ce211 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for SVN-Hooks. -*- text -*-
 
+1.07    2011-08-27
+
+	Requiring at least svnlook version 1.4.0.
+
 1.06	2011-08-21
 
 	Checking in Makefile.PL if we can exec svnlook. Just
diff --git a/META.yml b/META.yml
index 3a0eac6..c3fb4b0 100644
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               SVN-Hooks
-version:            1.06
+version:            1.07
 abstract:           A framework for implementing Subversion hooks.
 author:
     - Gustavo Chaves <gnustavo at cpan.org>
diff --git a/Makefile.PL b/Makefile.PL
index 4a64d82..fa8d5d0 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -18,15 +18,21 @@ GetOptions(
     'author-tests' => \$author_tests,
 ) or die $usage;
 
-# Check if we have the svnlook command.
-eval {
-    open my $svnlook, '-|', 'svnlook --version' or die;
+# Check if we have a suitable version of the svnlook command.
+{
+    open my $svnlook, '-|', 'svnlook --version'
+	or die "Aborting because I couldn't find the 'svnlook' executable in PATH=$ENV{PATH}.\n";
+    $_ = <$svnlook>;
+    if (my ($major, $minor, $patch) = (/(\d+)\.(\d+)\.(\d+)/)) {
+	$major > 1 || $major == 1 && $minor >= 4
+	    or die "I need at least version 1.4.0 of svnlook but you have only $major.$minor.$patch.\n";
+    } else {
+	die "Can't grok Subversion version from svnlook --version command.\n";
+    }
     local $/ = undef;		# slurp mode
     <$svnlook>;
-    close $svnlook or die;
-};
-die "Aborting because I couldn't find the 'svnlook' executable.\n"
-    if $@;
+    close $svnlook or die "Can't close svnlook commnand.\n";
+}
 
 #
 # Check if we have internet connection
diff --git a/README b/README
index 756b76f..73cef46 100644
--- a/README
+++ b/README
@@ -1,6 +1,6 @@
 Name:    SVN-Hooks
 What:    Framework for Subversion hooks
-Version: 1.06
+Version: 1.07
 Author:  Gustavo Chaves <gnustavo at cpan.org>
 
 SVN-Hooks is a framework for creating Subversion hooks
diff --git a/lib/SVN/Hooks.pm b/lib/SVN/Hooks.pm
index e124328..39fe129 100644
--- a/lib/SVN/Hooks.pm
+++ b/lib/SVN/Hooks.pm
@@ -18,11 +18,11 @@ SVN::Hooks - A framework for implementing Subversion hooks.
 
 =head1 VERSION
 
-Version 1.06
+Version 1.07
 
 =cut
 
-our $VERSION = '1.06';
+our $VERSION = '1.07';
 
 our @Conf_Files = (catfile('conf', 'svn-hooks.conf'));
 our $Repo       = undef;

-- 
Debian packaging of libsvn-hooks-perl