1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#! /bin/sh /usr/share/dpatch/dpatch-run
## fix_05basic_t.dpatch by Florian Ragwitz <rafl@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: fix t/05_basic.t with latest Text::Iconv
@DPATCH@
--- libxml-sax-writer-perl-0.44.orig/t/05basic.t
+++ libxml-sax-writer-perl-0.44/t/05basic.t
@@ -7,6 +7,7 @@
use strict;
use Test::More tests => 27;
+use Text::Iconv;
BEGIN { use_ok('XML::SAX::Writer'); }
@@ -48,7 +49,9 @@
# different inits (mostly for Consumer DWIM)
$w1->{EncodeFrom} = 'iso-8859-1';
$w1->start_document;
-isa_ok($w1->{Encoder}, 'Text::Iconv', 'iconv converter for real encoding');
+my $iconv_class = 'Text::Iconv';
+$iconv_class .= 'Ptr' if ($Text::Iconv::VERSION >= 1.3);
+isa_ok($w1->{Encoder}, $iconv_class, 'iconv converter for real encoding');
$w1->{Output} = 'test_file_for_output';
$w1->start_document;
|
