From 0c22b93c9500bf0b6e2afdd04d4edb99689bcf6b Mon Sep 17 00:00:00 2001 From: Michael Schroeder Date: Wed, 4 Sep 2024 14:35:59 +0200 Subject: [PATCH] SimpleXML: implement short form in unparse --- Build/SimpleXML.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Build/SimpleXML.pm b/Build/SimpleXML.pm index f62965b46..45b3131c6 100644 --- a/Build/SimpleXML.pm +++ b/Build/SimpleXML.pm @@ -165,6 +165,10 @@ sub unparse { $r .= " ".unparse_escape($sa); $r .= '="'.unparse_escape($se->{$sa}).'"' if defined $se->{$sa}; } + if (!@se && !defined($se->{'_content'})) { + $r .= " />$nl"; + next; + } $r .= ">"; $r .= unparse_escape($se->{'_content'}) if defined $se->{'_content'}; $r .= $nl . unparse($se, %opts, 'indent' => " $indent") . "$indent" if @se;