SimpleXML: implement <element attr /> short form in unparse

openSUSE · Sep 4, 2024 · 0c22b93 · 0c22b93
1 parent f47374b
commit 0c22b93
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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;