[perl-DBIx-Class] Add DBIx-Class-0.08250-Fix-ridiculous-regex-anchor-mistake-from-66137dffe.patch

[Petr Pisar]

commit 524fa06bdc138625295dd20c32113b35cb140df5
Author: Petr Písař <ppisar at redhat.com>
Date:   Wed May 21 15:56:41 2014 +0200

    Add DBIx-Class-0.08250-Fix-ridiculous-regex-anchor-mistake-from-66137dffe.patch

 ...ulous-regex-anchor-mistake-from-66137dffe.patch |   47 ++++++++++++++++++++
 1 files changed, 47 insertions(+), 0 deletions(-)
---
diff --git a/DBIx-Class-0.08250-Fix-ridiculous-regex-anchor-mistake-from-66137dffe.patch b/DBIx-Class-0.08250-Fix-ridiculous-regex-anchor-mistake-from-66137dffe.patch
new file mode 100644
index 0000000..0f54950
--- /dev/null
+++ b/DBIx-Class-0.08250-Fix-ridiculous-regex-anchor-mistake-from-66137dffe.patch
@@ -0,0 +1,47 @@
+From d0654b22afaa59929f82f68793c8b7885e966484 Mon Sep 17 00:00:00 2001
+From: Peter Rabbitson <ribasushi at cpan.org>
+Date: Sun, 19 Jan 2014 12:39:28 +0100
+Subject: [PATCH] Fix ridiculous regex anchor mistake from 66137dffe
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+
+Petr Pisar: Ported to 0.08250.
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ Makefile.PL                | 2 +-
+ lib/DBIx/Class/SQLMaker.pm | 2 +-
+ 2 files changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/Makefile.PL b/Makefile.PL
+index c86103a..7817114 100644
+--- a/Makefile.PL
++++ b/Makefile.PL
+@@ -77,7 +77,7 @@ my $runtime_requires = {
+   'namespace::clean'         => '0.24',
+   'Path::Class'              => '0.18',
+   'Scope::Guard'             => '0.03',
+-  'SQL::Abstract'            => '1.73',
++  'SQL::Abstract'            => '1.77',
+   'Try::Tiny'                => '0.07',
+ 
+   # Technically this is not a core dependency - it is only required
+diff --git a/lib/DBIx/Class/SQLMaker.pm b/lib/DBIx/Class/SQLMaker.pm
+index 14fbb29..31ea037 100644
+--- a/lib/DBIx/Class/SQLMaker.pm
++++ b/lib/DBIx/Class/SQLMaker.pm
+@@ -512,7 +512,7 @@ sub _where_op_multicolumn_in {
+ 
+   for ($lhs, $rhs) {
+     $$_->[0] = "( $$_->[0] )"
+-      unless $$_->[0] =~ /^ \s* \( .* \) \s* ^/xs;
++      unless $$_->[0] =~ /^ \s* \( .* \) \s* $/xs;
+   }
+ 
+   \[ join( ' IN ', shift @$$lhs, shift @$$rhs ), @$$lhs, @$$rhs ];
+-- 
+1.9.0
+