From 09a96ae7d473be93ca7d1f4591819e89c7174d6e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Nov 1999 13:10:46 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index c820b9f73..34e08d62f 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -22,7 +22,7 @@ use my_gtk qw(:helpers :wrappers);
 sub ask_from_listW {
     my ($o, $title, $messages, $l, $def) = @_;
 
-    my $w = my_gtk->new($title, %$o);
+    my $w = my_gtk->new(first(deref($title)), %$o);
     $w->{retval} = $def || $l->[0]; #- nearly especially for the X test case (see timeout in Xconfigurator.pm)
     if (@$l < 5) { #- really ? : && sum(map { length $_ } @$l) < 90) {
 	my $defW;
-- 
cgit v1.2.1