pool/perl-Template-Toolkit
SHA256
4
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Template-Toolkit?expand=0&rev=28

Browse Source
This commit is contained in:
Stephan Kulow 2013-08-06 07:40:02 +00:00 committed by Git OBS Bridge
parent 974f474355
commit ae95f3682c
2 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
perl-Template-Toolkit.spec
View File

@ -24,7 +24,6 @@ License: Artistic-1.0
Group: Development/Libraries/Perl
Url: http://cpan.org/dist/Template-Toolkit
Source: http://search.cpan.org/CPAN/authors/id/A/AB/ABW/Template-Toolkit-%{version}.tar.gz
Patch0: https://rt.cpan.org/Public/Ticket/Attachment/1204402/635952/split_pattern.patch
#BuildRequires: perl-AppConfig perl-DBI perl-Date-Calc perl-XML-DOM perl-XML-Parser
BuildRequires: perl
#
@ -69,7 +68,6 @@ other offline document systems.
%prep
%setup -q -n "Template-Toolkit-%{version}"
%patch0 -p1
%build
perl Makefile.PL

28
split_pattern.patch
View File

@ -1,28 +0,0 @@
--- 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) ];
}