summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4c3ccf6e5..fa71c5fc3 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -661,12 +661,12 @@ sub gtktext_insert {
}
if ($tag) {
if (ref($tag)) {
+ # use anonymous tags
+ $buffer->insert_with_tags($iter1, $item, $buffer->create_tag(undef, %$tag));
+ } else {
# fast text insertion:
# since in some contexts (eg: localedrake, rpmdrake), we use quite a lot of identical tags,
# it's much more efficient and less memory pressure to use named tags
- $buffer->insert_with_tags($iter1, $item, $buffer->create_tag(undef, %$tag));
- } else {
- # use anonymous tags
$gtk_tags->{$tag} ||= $buffer->create_tag($tag, %{$tags->{$token->[1]}});
$buffer->insert_with_tags($iter1, $item, $gtk_tags->{$tag});
}