summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-02 05:04:04 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-02 05:04:04 +0000
commitc7257c127b5b9b412f5ed1171ad1c138ec4207b5 (patch)
treebbb20f542ed1f67d6edcbff4d9955c18c2dc01ec /perl-install
parentd550b194b56fb233c38a56f08f6852719791e685 (diff)
downloaddrakx-c7257c127b5b9b412f5ed1171ad1c138ec4207b5.tar
drakx-c7257c127b5b9b412f5ed1171ad1c138ec4207b5.tar.gz
drakx-c7257c127b5b9b412f5ed1171ad1c138ec4207b5.tar.bz2
drakx-c7257c127b5b9b412f5ed1171ad1c138ec4207b5.tar.xz
drakx-c7257c127b5b9b412f5ed1171ad1c138ec4207b5.zip
fix inverted comments
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});
}