From c007ced395ea2591da1fdefc5c3d9fa11089d81e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 29 Aug 2008 14:20:30 +0000
Subject: (asteriskize_if_needed) rename as asteriskize() to better match it
 behaviour

---
 perl-install/interactive/gtk.pm | 2 +-
 perl-install/mygtk2.pm          | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 1898726ca..c34630081 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -711,7 +711,7 @@ sub create_widgets {
     # add asterisks before titles when there're more than one:
     my @all_titles = all_title_entries($l);
     if (2 <= @all_titles) {
-        ${$_->{val}} = mygtk2::asteriskize_if_needed(${$_->{val}}) foreach @all_titles;
+        ${$_->{val}} = mygtk2::asteriskize(${$_->{val}}) foreach @all_titles;
     }
 
     my $box = create_widgets_block($o, $l, $update, \$ignore);
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index f49f8a5d0..4dd5655ad 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -1203,7 +1203,7 @@ sub _allow_scroll_TextView_to_bottom {
     };
 }
 
-sub asteriskize_if_needed {
+sub asteriskize {
     my ($label) = @_;
     "\x{2022} " . $label;
 }
-- 
cgit v1.2.1