8
0

- remove upstreamed perl-XML-LibXML-bigendian.patch

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-XML-LibXML?expand=0&rev=39
This commit is contained in:
Stephan Kulow
2013-07-30 05:42:55 +00:00
committed by Git OBS Bridge
parent 57e9aafc1c
commit 47a2cfdb15
3 changed files with 2 additions and 36 deletions

View File

@@ -1,33 +0,0 @@
STRLEN has 64 bits here and int has 32, so the (int*) cast in
XML::LibXML::Document::toStringHTML() makes htmlDocDumpMemory() store
the 32-bit length of the result into a 64-bit variable. Depending on
the endianness, it either works OK (LE) or corrupts the variable (BE)
Just use an 'int' instead, and cast it to an STRLEN later in the
newSVpvn() call.
---
LibXML.xs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/LibXML.xs b/LibXML.xs
index 8ac23bf..581cc48 100644
--- a/LibXML.xs
+++ b/LibXML.xs
@@ -2930,13 +2930,13 @@ toStringHTML(self)
XML::LibXML::Document::serialize_html = 1
PREINIT:
xmlChar *result=NULL;
- STRLEN len = 0;
+ int len = 0;
PREINIT_SAVED_ERROR
CODE:
PERL_UNUSED_VAR(ix);
xs_warn( "use no formated toString!" );
INIT_ERROR_HANDLER;
- htmlDocDumpMemory(self, &result, (int*)&len);
+ htmlDocDumpMemory(self, &result, &len);
CLEANUP_ERROR_HANDLER;
REPORT_ERROR(0);
--
1.7.10

View File

@@ -35,6 +35,7 @@ Sat Jul 27 11:59:01 UTC 2013 - coolo@suse.com
- discovered by Shlomi Fish.
- Fixed by Shlomi Fish.
- see t/40reader_mem_error.t
- remove upstreamed perl-XML-LibXML-bigendian.patch
-------------------------------------------------------------------
Fri May 25 08:40:07 UTC 2012 - dvaleev@suse.com

View File

@@ -30,13 +30,12 @@ BuildRequires: perl-macros
BuildRequires: perl(ExtUtils::MakeMaker) >= 6.56
BuildRequires: perl(XML::NamespaceSupport) >= 1.07
BuildRequires: perl(XML::SAX) >= 0.11
BuildRequires: pkgconfig(libxml-2.0) >= 2.6.16
BuildRequires: pkgconfig(libxml-2.0) >= 2.9.0
Requires: perl(XML::NamespaceSupport) >= 1.07
Requires: perl(XML::SAX) >= 0.11
Provides: perl-XML-LibXML-Common = %{version}
Obsoletes: perl-XML-LibXML-Common < %{version}
BuildRoot: %{_tmppath}/%{name}-%{version}-build
Patch: perl-XML-LibXML-bigendian.patch
%{perl_requires}
%description
@@ -47,7 +46,6 @@ the high performance DOM implementation.
%prep
%setup -q -n %{cpan_name}-%{version}
%patch -p1
%build
# [2,7,1,0], # broken release, broken utf-16