r13781 - in /trunk/libxml-dom-perl/debian/patches: ./ 01-fix_utf8_tests.patch series

[hanska-guest at users.alioth.debian.org]

Author: hanska-guest
Date: Mon Jan 28 09:12:08 2008
New Revision: 13781

URL: http://svn.debian.org/wsvn/?sc=1&rev=13781
Log:
Patch added

Added:
    trunk/libxml-dom-perl/debian/patches/
    trunk/libxml-dom-perl/debian/patches/01-fix_utf8_tests.patch
    trunk/libxml-dom-perl/debian/patches/series

Added: trunk/libxml-dom-perl/debian/patches/01-fix_utf8_tests.patch
URL: http://svn.debian.org/wsvn/trunk/libxml-dom-perl/debian/patches/01-fix_utf8_tests.patch?rev=13781&op=file
==============================================================================
--- trunk/libxml-dom-perl/debian/patches/01-fix_utf8_tests.patch (added)
+++ trunk/libxml-dom-perl/debian/patches/01-fix_utf8_tests.patch Mon Jan 28 09:12:08 2008
@@ -1,0 +1,55 @@
+--- libxml-dom-perl.orig/t/dom_jp_attr.t
++++ libxml-dom-perl/t/dom_jp_attr.t
+@@ -90,7 +90,9 @@
+ my $doc = $parser->parse ($str);
+ assert_ok (not $@);
+ 
++use bytes;
+ my $out = $doc->toString;
++use utf8;
+ $out =~ tr/\012/\n/;
+ $out =~ s/(\&\#(\d+);)/sprintf("%s",charRef2U8($2))/eg;
+ assert_ok ($out eq $str);
+--- libxml-dom-perl.orig/t/dom_jp_cdata.t
++++ libxml-dom-perl/t/dom_jp_cdata.t
+@@ -44,7 +44,9 @@
+ my $doc = $parser->parse ($str);
+ assert_ok (not $@);
+ 
++use bytes;
+ my $out = $doc->toString;
++use utf8;
+ $out =~ tr/\012/\n/;
+ my $result = ($XML::Parser::VERSION >= 2.19) ? $str : $oldStr;
+ assert_ok ($out eq $result);
+--- libxml-dom-perl.orig/t/dom_jp_minus.t
++++ libxml-dom-perl/t/dom_jp_minus.t
+@@ -46,6 +46,8 @@
+ my $parser = new XML::DOM::Parser;
+ my $doc = $parser->parse ($str);
+ 
++use bytes;
+ my $out = $doc->toString;
++use utf8;
+ $out =~ tr/\012/\n/;
+ assert_ok ($out eq $str);
+--- libxml-dom-perl.orig/t/dom_jp_modify.t
++++ libxml-dom-perl/t/dom_jp_modify.t
+@@ -180,4 +180,5 @@
+ </ケニー></サウスパーク>
+ END
+ 
++use bytes;
+ assert_ok ($str eq $end);
+--- libxml-dom-perl.orig/t/dom_jp_print.t
++++ libxml-dom-perl/t/dom_jp_print.t
+@@ -83,7 +83,9 @@
+ 
+ my $parser = new XML::DOM::Parser (NoExpand => 1);
+ my $doc = $parser->parse ($str);
++use bytes;
+ my $out = $doc->toString;
++use utf8;
+ $out =~ tr/\012/\n/;
+ $out =~ s/(\&\#(\d+);)/sprintf("%s",charRef2U8($2))/eg;
+ 

Added: trunk/libxml-dom-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/trunk/libxml-dom-perl/debian/patches/series?rev=13781&op=file
==============================================================================
--- trunk/libxml-dom-perl/debian/patches/series (added)
+++ trunk/libxml-dom-perl/debian/patches/series Mon Jan 28 09:12:08 2008
@@ -1,0 +1,1 @@
+01-fix_utf8_tests.patch