From 7aa9568609228fa4a8db10fbd55a11c82792665e Mon Sep 17 00:00:00 2001
From: Natanael Copa <ncopa@alpinelinux.org>
Date: Thu, 23 May 2013 08:55:12 +0000
Subject: testing/perl-template-toolkit: rebuild against perl-5.18

---
 testing/perl-template-toolkit/split_pattern.patch | 31 +++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 testing/perl-template-toolkit/split_pattern.patch

(limited to 'testing/perl-template-toolkit/split_pattern.patch')

diff --git a/testing/perl-template-toolkit/split_pattern.patch b/testing/perl-template-toolkit/split_pattern.patch
new file mode 100644
index 0000000000..b0b1152e48
--- /dev/null
+++ b/testing/perl-template-toolkit/split_pattern.patch
@@ -0,0 +1,31 @@
+https://rt.cpan.org/Public/Bug/Display.html?id=84778
+
+--- a/lib/Template/VMethods.pm	2012-02-07 09:06:38.000000000 +0000
++++ b/lib/Template/VMethods.pm	2013-04-22 16:58:34.000000000 +0000
+@@ -261,12 +261,12 @@
+ 
+     if (defined $limit) {
+         return [ defined $split
+-                 ? split($split, $str, $limit)
++                 ? split("(?:)".$split, $str, $limit)
+                  : split(' ', $str, $limit) ];
+     }
+     else {
+         return [ defined $split
+-                 ? split($split, $str)
++                 ? split("(?:)".$split, $str)
+                  : split(' ', $str) ];
+     }
+ }
+--- a/lib/Template/Plugin/String.pm	2011-12-20 07:41:35.000000000 +0000
++++ b/lib/Template/Plugin/String.pm	2013-04-22 16:55:36.000000000 +0000
+@@ -363,7 +363,7 @@
+     my $split = CORE::shift;
+     my $limit = CORE::shift || 0;
+     $split = '\s+' unless defined $split;
+-    return [ split($split, $self->{ text }, $limit) ];
++    return [ split("(?:)".$split, $self->{ text }, $limit) ];
+ }
+ 
+ 
+
-- 
cgit v1.2.3