diff -ur gpt-3.2.orig/packaging_tools/perl/GPT/V1/XML.pm gpt-3.2/packaging_tools/perl/GPT/V1/XML.pm
--- gpt-3.2.orig/packaging_tools/perl/GPT/V1/XML.pm	2004-05-20 19:42:17.000000000 +0200
+++ gpt-3.2/packaging_tools/perl/GPT/V1/XML.pm	2008-07-02 07:48:13.000000000 +0200
@@ -275,10 +275,10 @@
   my ($self, $tag) = @_;
   local *FILE = *{$self->{'FILE'}};
   
-  print FILE "<$tag->{'name'} ";
+  print FILE "<$tag->{'name'}";
 
   for my $a (sort keys %{$tag->{attributes}}) {
-    print FILE "$a=\"$tag->{attributes}->{$a}\" ";
+    print FILE " $a=\"$tag->{attributes}->{$a}\"";
   }
 
   if (@{$tag->{'contents'}} == 0) {