diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-12-30 12:07:06 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-12-30 12:07:06 +0000 |
| commit | 2cd2e4a20583e8c33ed8cafc164ec41e43cee377 (patch) | |
| tree | a35d8f8a4dda7f97f7ea4091542607139d6e52fc /perl-install/ugtk2.pm | |
| parent | 116ae30696e7c9c694886d582831c05a78ef4f6b (diff) | |
| download | drakx-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)
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
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; }); } |