diff options
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t')
-rw-r--r-- | macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t index e399ab3696..b31537b22c 100644 --- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t +++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/02iso-8859-11.t @@ -11,7 +11,7 @@ BEGIN { eval { require Encode; - if ($Encode::VERSION < "1.78") { + if ($Encode::VERSION =~ /^1\./ && $Encode::VERSION < "1.78") { print "1..0 # Skip: Encode $Encode::VERSION has a " . "bug, please upgrade!\n"; exit 0; @@ -84,7 +84,7 @@ ok $result_int; # Check handling of unknown characters. my $test_string1 = [ unpack 'c*', ' Supergirl ' ]; $test_string1->[0] = 0xad0be; -$test_string1->[-1] = 0xbeefbabe; +$test_string1->[-1] = 0xad0be; my $test_string2 = [ unpack 'c*', 'Supergirl' ]; my $unknown = "\x3f"; # Unknown character! |