From 2cd2e4a20583e8c33ed8cafc164ec41e43cee377 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 30 Dec 2003 12:07:06 +0000
Subject: _ask_dir: when a directory is selected, need a / in between the
 "filename" and the "selection" (#6152)

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 663575578..3b303c71c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1101,7 +1101,7 @@ sub _ask_dir {
     $f->selection_entry->get_parent->hide;
     $f->ok_button->signal_connect(clicked => sub {
 				      my ($model, $iter) = $f->dir_list->get_selection->get_selected;
-				      $o->{retval} .= $model->get($iter, 0) if $model;
+				      $o->{retval} .= '/'.$model->get($iter, 0) if $model;
 				  });
 }
 
-- 
cgit v1.2.1