equal
deleted
inserted
replaced
53 grep { |
53 grep { |
54 ! ref $tree->{$_} |
54 ! ref $tree->{$_} |
55 } |
55 } |
56 keys %$tree) |
56 keys %$tree) |
57 { |
57 { |
58 print " $attr=\"$tree->{$attr}\""; |
58 my $value_escaped = $tree->{$attr}; |
|
59 $value_escaped =~ s/&/&/g; |
|
60 $value_escaped =~ s/</</g; |
|
61 $value_escaped =~ s/>/>/g; |
|
62 print " $attr=\"$value_escaped\""; |
59 } |
63 } |
60 |
64 |
61 my $children = $tree->{Kids} || []; |
65 my $children = $tree->{Kids} || []; |
62 if (scalar @$children) |
66 if (scalar @$children) |
63 { |
67 { |