From 9cbaa4111f1ea5e75313cb9be4dd53fdb31e2601 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 3 Sep 2007 10:28:02 +0000 Subject: (get_name) really move it --- Rpmdrake/gui.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Rpmdrake/gui.pm') diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 9082b85b..cc527f2b 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -246,6 +246,12 @@ sub update_size { } } +sub get_name { + my ($name) = @_; + ($name) = $name =~ m!(.*)!; + return $name; +} + sub children { my ($w) = @_; map { -- cgit v1.2.1