From daea144eeffb32d2865aba934fbb4843b3fbbbef Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 11 Jan 2001 14:21:13 +0000
Subject: (create_ctree): fix default value selecting failing (in case of
 "format")

---
 perl-install/interactive_gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 87b6db89c..bed7e1f8d 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -161,7 +161,8 @@ sub create_ctree {
     $tree->set_row_height($tree->style->font->ascent + $tree->style->font->descent + 1);
 
     $tree, sub {
-	my $node = $wleaves{$_[0]} or return;
+	my $v = may_apply($e->{format}, $_[0]);
+	my $node = $wleaves{$v} or return;
 
 	for (my $c = $node; $c; $c = $c->row->parent) { 
 	    $tree->expand($c);
-- 
cgit v1.2.1