summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm4
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;