From a2a899d33d08be6a2013988adf130876efda32e2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Feb 2005 18:55:04 +0000
Subject: use ->ask_filename instead of ->ask_file (esp. useful in "save" mode)

---
 perl-install/diskdrake/interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/diskdrake')

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;
-- 
cgit v1.2.1