summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-12-30 12:07:06 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-12-30 12:07:06 +0000
commit2cd2e4a20583e8c33ed8cafc164ec41e43cee377 (patch)
treea35d8f8a4dda7f97f7ea4091542607139d6e52fc
parent116ae30696e7c9c694886d582831c05a78ef4f6b (diff)
downloaddrakx-2cd2e4a20583e8c33ed8cafc164ec41e43cee377.tar
drakx-2cd2e4a20583e8c33ed8cafc164ec41e43cee377.tar.gz
drakx-2cd2e4a20583e8c33ed8cafc164ec41e43cee377.tar.bz2
drakx-2cd2e4a20583e8c33ed8cafc164ec41e43cee377.tar.xz
drakx-2cd2e4a20583e8c33ed8cafc164ec41e43cee377.zip
_ask_dir: when a directory is selected, need a / in between the "filename" and the "selection" (#6152)
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
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;
});
}