Commit | Line | Data |
---|---|---|
778a861b | 1 | BEGIN { print "1..2\n"; } |
40c2103f | 2 | |
778a861b Z |
3 | our $has_is_utf8; BEGIN { $has_is_utf8 = exists($utf8::{"is_utf8"}); } |
4 | our $has_dgrade; BEGIN { $has_dgrade = exists($utf8::{"downgrade"}); } | |
40c2103f | 5 | |
778a861b | 6 | use Carp; |
40c2103f | 7 | |
778a861b Z |
8 | print !(exists($utf8::{"is_utf8"}) xor $has_is_utf8) ? "" : "not ", "ok 1\n"; |
9 | print !(exists($utf8::{"downgrade"}) xor $has_dgrade) ? "" : "not ", "ok 2\n"; | |
40c2103f Z |
10 | |
11 | 1; |