1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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) {
|
