From a872836d40a06ff578bbb1577975f5b4f1eefc96 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 23 Feb 2005 17:27:02 +0000
Subject: fix usage of create_file_selector()

---
 perl-install/ugtk2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 762289f44..1cffcb3d7 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -972,7 +972,7 @@ sub file_selected_check {
 sub _ask_file {
     my ($o, $title, $path) = @_;
 
-    my $w = create_file_selector({ title => $title, want_a_dir => 0, directory => $path });
+    my $w = create_file_selector(title => $title, want_a_dir => 0, directory => $path);
     put_in_hash($o, $w);
 
     $w->{ok}->signal_connect(clicked => sub { $o->{retval} = $w->{chooser}->get_filename });
@@ -980,7 +980,7 @@ sub _ask_file {
 sub _ask_dir {
     my ($o, $title, $path) = @_;
 
-    my $w = create_file_selector({ title => $title, want_a_dir => 1, directory => $path });
+    my $w = create_file_selector(title => $title, want_a_dir => 1, directory => $path);
     put_in_hash($o, $w);
 
     $w->{ok}->signal_connect(clicked => sub { $o->{retval} = $w->{chooser}->get_filename });
-- 
cgit v1.2.1