c5eac02ac4
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Template-Toolkit?expand=0&rev=25
29 lines
956 B
Diff
29 lines
956 B
Diff
--- 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) ];
|
|
}
|
|
|
|
|