diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Encode/t/xml.t')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Encode/t/xml.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/cpan/Encode/t/xml.t b/gnu/usr.bin/perl/cpan/Encode/t/xml.t index 2c7e721d914..5cfc6178a5f 100644 --- a/gnu/usr.bin/perl/cpan/Encode/t/xml.t +++ b/gnu/usr.bin/perl/cpan/Encode/t/xml.t @@ -1,3 +1,9 @@ +BEGIN { + if ( $] < 5.009 ) { + print "1..0 # Skip: Perl <= 5.9 or later required\n"; + exit 0; + } +} use strict; use warnings; @@ -8,7 +14,7 @@ my $content = String->new("--\x{30c6}--"); my $text = Encode::encode('latin1', $content, Encode::FB_XMLCREF); is $text, "--テ--"; -done_testing; +done_testing(); package String; use overload |