summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-30 11:24:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-30 11:24:32 +0000
commit40e5751decc76dedf42016e9eb695726a37ccd06 (patch)
treee93f97d2c8ecaf2557c33a4c2ffcc322c88c0baf /perl-install
parent66a3628fe68440fc30f8aafb2ce51001cb8742a1 (diff)
downloaddrakx-40e5751decc76dedf42016e9eb695726a37ccd06.tar
drakx-40e5751decc76dedf42016e9eb695726a37ccd06.tar.gz
drakx-40e5751decc76dedf42016e9eb695726a37ccd06.tar.bz2
drakx-40e5751decc76dedf42016e9eb695726a37ccd06.tar.xz
drakx-40e5751decc76dedf42016e9eb695726a37ccd06.zip
fix "Cancel" in ask_okcancel
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index df5030883..6356d14d3 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -165,7 +165,7 @@ sub ask_okcancel_ {
$common->{focus_cancel} = !$b_def;
ask_from_no_check($o, $common, []);
} else {
- ask_from_listf_raw($o, $common, sub { translate($_[0]) }, [ $o->ok, $o->cancel ], $b_def ? $o->ok : "Cancel") eq $o->ok;
+ ask_from_listf_raw($o, $common, sub { translate($_[0]) }, [ $o->ok, $o->cancel ], $b_def ? $o->ok : $o->cancel) eq $o->ok;
}
}