ext/B/t/b.t: Generalize for non-ASCII platforms

diff --git a/ext/B/t/b.t b/ext/B/t/b.t
index 93d8867..d9d9e7b 100644 (file)
--- a/ext/B/t/b.t
+++ b/ext/B/t/b.t
@@ -280,7 +280,7 @@ is(B::opnumber("pp_null"), 0, "Testing opnumber with opname (pp_null)");
     while (my ($test, $expect) = splice @tests, 0, 2) {
        is(B::perlstring($test), $expect, "B::perlstring($expect)");
        utf8::upgrade $test;
-       $expect =~ s/\\b/\\x\{8\}/g;
+       $expect =~ s/\\b/sprintf("\\x{%x}", utf8::unicode_to_native(8))/eg;
        $expect =~ s/\\([0-7]{3})/sprintf "\\x\{%x\}", oct $1/eg;
        is(B::perlstring($test), $expect, "B::perlstring($expect) (Unicode)");
     }