From 7df19224034e8dcff3794bf749c9b99b07e3dcc4d1c38c06b0a049f76576fcc3 Mon Sep 17 00:00:00 2001
From: Stephan Kulow <coolo@suse.com>
Date: Fri, 14 Jan 2011 13:00:09 +0000
Subject: [PATCH] OBS-URL:
 https://build.opensuse.org/package/show/devel:languages:perl/perl-HTML-TreeBuilder-XPath?expand=0&rev=8

---
 HTML-TreeBuilder-XPath-break.diff         | 16 ++++++++++++++++
 HTML-TreeBuilder-XPath-filter-provides.sh |  3 ---
 perl-HTML-TreeBuilder-XPath.spec          |  5 ++---
 3 files changed, 18 insertions(+), 6 deletions(-)
 create mode 100644 HTML-TreeBuilder-XPath-break.diff
 delete mode 100644 HTML-TreeBuilder-XPath-filter-provides.sh

diff --git a/HTML-TreeBuilder-XPath-break.diff b/HTML-TreeBuilder-XPath-break.diff
new file mode 100644
index 0000000..27aff8f
--- /dev/null
+++ b/HTML-TreeBuilder-XPath-break.diff
@@ -0,0 +1,16 @@
+All this does is to avoid a match in perl.prov
+
+Index: HTML-TreeBuilder-XPath-0.12/lib/HTML/TreeBuilder/XPath.pm
+===================================================================
+--- HTML-TreeBuilder-XPath-0.12.orig/lib/HTML/TreeBuilder/XPath.pm	2011-01-14 13:07:18.000000000 +0100
++++ HTML-TreeBuilder-XPath-0.12/lib/HTML/TreeBuilder/XPath.pm	2011-01-14 13:08:22.366315163 +0100
+@@ -93,7 +93,8 @@ sub cmp
+ 
+ # need to modify directly the HTML::Element package, because HTML::TreeBuilder won't let me
+ # change the class of the nodes it generates
+-package HTML::Element;
++package
++ HTML::Element;
+ use Scalar::Util qw(weaken);
+ use vars qw(@ISA);
+ 
diff --git a/HTML-TreeBuilder-XPath-filter-provides.sh b/HTML-TreeBuilder-XPath-filter-provides.sh
deleted file mode 100644
index f3b631f..0000000
--- a/HTML-TreeBuilder-XPath-filter-provides.sh
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/sh
-
-/usr/lib/rpm/find-provides "$@" | sed -e '/HTML::Element/d'
diff --git a/perl-HTML-TreeBuilder-XPath.spec b/perl-HTML-TreeBuilder-XPath.spec
index b289720..8fba404 100644
--- a/perl-HTML-TreeBuilder-XPath.spec
+++ b/perl-HTML-TreeBuilder-XPath.spec
@@ -34,9 +34,8 @@ BuildRequires:  perl-macros
 Requires:       perl(HTML::TreeBuilder)
 Requires:       perl(List::Util)
 Requires:       perl(XML::XPathEngine) >= 0.12
+Patch0:         HTML-TreeBuilder-XPath-break.diff
 
-Source99:       HTML-TreeBuilder-XPath-filter-provides.sh
-%define __find_provides %{SOURCE99}
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildArch:      noarch
 %{perl_requires}
@@ -47,7 +46,7 @@ easy to query a document.
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
-chmod +x %{__find_provides}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor