diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-02-18 18:55:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-02-18 18:55:04 +0000 |
| commit | a2a899d33d08be6a2013988adf130876efda32e2 (patch) | |
| tree | 53622b56c56708c0dc864fb12dbd680d4c222796 | |
| parent | 442b3e408d436fb1ea15856696f69c6479787f91 (diff) | |
| download | drakx-a2a899d33d08be6a2013988adf130876efda32e2.tar drakx-a2a899d33d08be6a2013988adf130876efda32e2.tar.gz drakx-a2a899d33d08be6a2013988adf130876efda32e2.tar.bz2 drakx-a2a899d33d08be6a2013988adf130876efda32e2.tar.xz drakx-a2a899d33d08be6a2013988adf130876efda32e2.zip | |
use ->ask_filename instead of ->ask_file (esp. useful in "save" mode)
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index efe38a135..d48379ed9 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -373,7 +373,7 @@ sub ReadFromFile { my ($h, $file, $fh); if ($::isStandalone) { - $file = $in->ask_file(N("Select file")) or return; + $file = $in->ask_filename({ title => N("Select file") }) or return; } else { undef $h; #- help perl_checker my $name = $hd->{device}; $name =~ s!/!_!g; @@ -399,7 +399,7 @@ sub SaveInFile { my ($h, $file) = ('', ''); if ($::isStandalone) { - $file = $in->ask_file(N("Select file")) or return; + $file = $in->ask_filename({ save => 1, title => N("Select file") }) or return; } else { undef $h; #- help perl_checker my $name = $hd->{device}; $name =~ s!/!_!g; |