jplesnik pushed to perl-HTML-StripScripts (master). "Fix invalid regex (CPAN RT#104221)"

notifications at fedoraproject.org notifications at fedoraproject.org
Tue May 5 08:32:23 UTC 2015


>From a7aa5ed6987d312eef98682183a7c463f1727bea Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik at redhat.com>
Date: Tue, 5 May 2015 10:31:59 +0200
Subject: Fix invalid regex (CPAN RT#104221)


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;
+ }
diff --git a/perl-HTML-StripScripts.spec b/perl-HTML-StripScripts.spec
index 0002b4a..5fb06f2 100644
--- a/perl-HTML-StripScripts.spec
+++ b/perl-HTML-StripScripts.spec
@@ -1,16 +1,23 @@
 Name:           perl-HTML-StripScripts
 Version:        1.05
-Release:        12%{?dist}
+Release:        13%{?dist}
 Summary:        Strip scripting constructs out of HTML
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/HTML-StripScripts/
 Source0:        http://search.cpan.org/CPAN/authors/id/D/DR/DRTECH/HTML-StripScripts-%{version}.tar.gz
+# Add missing a right brace to regex (CPAN RT#104221)
+Patch0:         HTML-StripScripts-1.05-Fix-typo-in-regex.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
+BuildRequires:  perl(base)
 BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Test::More)
 BuildRequires:  perl(Test::Pod)
 BuildRequires:  perl(Test::Pod::Coverage)
+BuildRequires:  perl(vars)
+BuildRequires:  perl(warnings)
 
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 
@@ -22,6 +29,7 @@ display HTML originating from an untrusted source without introducing XSS
 
 %prep
 %setup -q -n HTML-StripScripts-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -30,7 +38,7 @@ make %{?_smp_mflags}
 %install
 rm -rf $RPM_BUILD_ROOT
 
-make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
+make pure_install DESTDIR=$RPM_BUILD_ROOT
 
 find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
 find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
@@ -50,6 +58,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Tue May 05 2015 Jitka Plesnikova <jplesnik at redhat.com> - 1.05-13
+- Fix invalid regex (CPAN RT#104221)
+
 * Wed Aug 27 2014 Jitka Plesnikova <jplesnik at redhat.com> - 1.05-12
 - Perl 5.20 rebuild
 
-- 
cgit v0.10.2


	http://pkgs.fedoraproject.org/cgit/perl-HTML-StripScripts.git/commit/?h=master&id=a7aa5ed6987d312eef98682183a7c463f1727bea


More information about the perl-devel mailing list