diff options
| author | Natanael Copa <ncopa@alpinelinux.org> | 2013-05-23 08:55:12 +0000 |
|---|---|---|
| committer | Natanael Copa <ncopa@alpinelinux.org> | 2013-05-23 08:55:12 +0000 |
| commit | 7aa9568609228fa4a8db10fbd55a11c82792665e (patch) | |
| tree | 0e5037b2da8d0de6a1a1db0626446e3d770299f9 /testing/perl-template-toolkit/split_pattern.patch | |
| parent | 64415fc6de4ecaf4ac3f798473a5b914937329cb (diff) | |
| download | aports-7aa9568609228fa4a8db10fbd55a11c82792665e.tar.bz2 aports-7aa9568609228fa4a8db10fbd55a11c82792665e.tar.xz | |
testing/perl-template-toolkit: rebuild against perl-5.18
Diffstat (limited to 'testing/perl-template-toolkit/split_pattern.patch')
| -rw-r--r-- | testing/perl-template-toolkit/split_pattern.patch | 31 |
1 files changed, 31 insertions, 0 deletions
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) ]; + } + + + |