#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;

my $e = XML::LibXML::Element->new("element");

print STDERR  "\$XML::LibXML::VERSION = ", $XML::LibXML::VERSION, "\n";

print STDERR "1\n";
$e->appendTextChild("child", "abcd\x{f6}efgh");

print STDERR "2\n";
my $s = "abcd\x{f6}efgh";
$e->appendTextChild("child", $s);

print STDERR "3\n";
utf8::upgrade($s);
$e->appendTextChild("child", $s);