summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/dav.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/diskdrake/dav.pm')
-rw-r--r--perl-install/diskdrake/dav.pm16
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm
index e393cd822..1f1008de1 100644
--- a/perl-install/diskdrake/dav.pm
+++ b/perl-install/diskdrake/dav.pm
@@ -82,13 +82,15 @@ sub ask_server {
my ($in, $dav, $_all_hds) = @_;
my $server = $dav->{device};
- $in->ask_from('', N("Please enter the WebDAV server URL"),
- [ { val => \$server } ],
- complete => sub {
- $server =~ m!https?://! or $in->ask_warn('', N("The URL must begin with http:// or https://")), return 1;
- 0;
- },
- ) or return;
+ $in->ask_from_({ messages => N("Please enter the WebDAV server URL"),
+ focus_first => 1,
+ callbacks => {
+ complete => sub {
+ $server =~ m!https?://! or $in->ask_warn('', N("The URL must begin with http:// or https://")), return 1;
+ 0;
+ },
+ } },
+ [ { val => \$server } ]) or return;
$dav->{device} = $server;
}