| … | |
… | |
| 264 | my $text = "$a->{_name}"; |
264 | my $text = "$a->{_name}"; |
| 265 | if (my $o = $ARCH{$a->{_name}}) { |
265 | if (my $o = $ARCH{$a->{_name}}) { |
| 266 | $text .= "<small>"; |
266 | $text .= "<small>"; |
| 267 | for my $k (grep /^[^_]/, sort keys %$a) { |
267 | for my $k (grep /^[^_]/, sort keys %$a) { |
| 268 | if ($a->{$k} ne $o->{$k}) { |
268 | if ($a->{$k} ne $o->{$k}) { |
|
|
269 | if ($Glib::VERSION < 1.103) { |
|
|
270 | my $t = "\n$k\t$a->{$k}"; |
|
|
271 | $t =~ s/&/&/g; |
|
|
272 | $t =~ s/</</g; |
|
|
273 | $t =~ s/>/>/g; |
|
|
274 | $text .= $t; |
|
|
275 | } else { |
| 269 | $text .= Glib::Markup::escape_text "\n$k\t$a->{$k}"; |
276 | $text .= Glib::Markup::escape_text "\n$k\t$a->{$k}"; |
|
|
277 | } |
| 270 | } |
278 | } |
| 271 | } |
279 | } |
| 272 | $text .= "</small>"; |
280 | $text .= "</small>"; |
| 273 | } else { |
281 | } else { |
| 274 | $text .= "\n<unknown archetype>"; |
282 | $text .= "\n<unknown archetype>"; |
