diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-08-30 11:24:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-08-30 11:24:32 +0000 |
| commit | 40e5751decc76dedf42016e9eb695726a37ccd06 (patch) | |
| tree | e93f97d2c8ecaf2557c33a4c2ffcc322c88c0baf /perl-install | |
| parent | 66a3628fe68440fc30f8aafb2ce51001cb8742a1 (diff) | |
| download | drakx-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.pm | 2 |
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; } } |