mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-10-31 08:21:49 +01:00
32 lines
1011 B
Diff
32 lines
1011 B
Diff
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) ];
|
|
}
|
|
|
|
|
|
|