[packages/perl-HTML-StripScripts] - rel 2; fix typo in regexp

[arekm]

commit 1c2d88a93eae2e0f4942600914a83309b48b9fd2
Author: Arkadiusz Miśkiewicz <arekm at maven.pl>
Date:   Tue May 10 14:10:25 2016 +0200

    - rel 2; fix typo in regexp

 HTML-StripScripts-1.05-Fix-typo-in-regex.patch | 12 ++++++++++++
 perl-HTML-StripScripts.spec                    |  4 +++-
 2 files changed, 15 insertions(+), 1 deletion(-)
---
diff --git a/perl-HTML-StripScripts.spec b/perl-HTML-StripScripts.spec
index 7b4038b..df528a8 100644
--- a/perl-HTML-StripScripts.spec
+++ b/perl-HTML-StripScripts.spec
@@ -9,11 +9,12 @@ Summary:	HTML::StripScripts - Strip scripting constructs out of HTML
 Summary(pl.UTF-8):	HTML::StripScripts - wyciągnij konstrukcje skryptowe poza HTML
 Name:		perl-HTML-StripScripts
 Version:	1.05
-Release:	1
+Release:	2
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
 Source0:	http://www.cpan.org/modules/by-module/HTML/%{pdir}-%{pnam}-%{version}.tar.gz
 # Source0-md5:	e8c51fbfda69efaf94c2937084d2458f
+Patch0:		HTML-StripScripts-1.05-Fix-typo-in-regex.patch
 URL:		http://search.cpan.org/dist/HTML-StripScripts/
 BuildRequires:	perl-devel >= 1:5.8.0
 BuildRequires:	rpm-perlprov >= 4.1-13
@@ -53,6 +54,7 @@ bez wprowadzania wrażliwości XSS (cross site scripting).
 
 %prep
 %setup -q -n %{pdir}-%{pnam}-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL \
diff --git a/HTML-StripScripts-1.05-Fix-typo-in-regex.patch b/HTML-StripScripts-1.05-Fix-typo-in-regex.patch
new file mode 100644
index 0000000..a2c4463
--- /dev/null
+++ b/HTML-StripScripts-1.05-Fix-typo-in-regex.patch
@@ -0,0 +1,12 @@
+diff -up HTML-StripScripts-1.05/StripScripts.pm.orig HTML-StripScripts-1.05/StripScripts.pm
+--- HTML-StripScripts-1.05/StripScripts.pm.orig	2015-05-05 09:12:33.495920443 +0200
++++ HTML-StripScripts-1.05/StripScripts.pm	2015-05-05 09:53:33.099908066 +0200
+@@ -1630,7 +1630,7 @@ size or length.
+ 
+ sub _hss_attval_size {
+     $_[3]
+-        =~ /^\s*([+-]?\d{1,20}(?:\.\d{1,20)?)\s*((?:\%|\*|ex|px|pc|cm|mm|in|pt|em)?)\s*$/i
++        =~ /^\s*([+-]?\d{1,20}(?:\.\d{1,20})?)\s*((?:\%|\*|ex|px|pc|cm|mm|in|pt|em)?)\s*$/i
+         ? lc "$1$2"
+         : undef;
+ }
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-HTML-StripScripts.git/commitdiff/1c2d88a93eae2e0f4942600914a83309b48b9fd2