diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-09-19 12:44:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-09-19 12:44:08 +0000 |
| commit | cbe19b4da0b447adc8d9ceb9de3a55341df7f106 (patch) | |
| tree | 01c34820c9eace560b84aae1f06c9574980c507b /perl-install | |
| parent | 678dbcad7e400317fc0455f247a201855f4c91ce (diff) | |
| download | drakx-cbe19b4da0b447adc8d9ceb9de3a55341df7f106.tar drakx-cbe19b4da0b447adc8d9ceb9de3a55341df7f106.tar.gz drakx-cbe19b4da0b447adc8d9ceb9de3a55341df7f106.tar.bz2 drakx-cbe19b4da0b447adc8d9ceb9de3a55341df7f106.tar.xz drakx-cbe19b4da0b447adc8d9ceb9de3a55341df7f106.zip | |
move {useless_thing_accepted} special case in install
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 5ae7bc6c9..31e6b4373 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -955,8 +955,6 @@ sub acceptLicense { # we do not handle links: $release_notes =~ s!<a href=".*?">(.*?)</a>!$1!g; - return if $o->{useless_thing_accepted}; - my $r = $::testing ? 'Accept' : 'Refuse'; $o->ask_from_({ title => N("License agreement"), diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 67c786a2c..80bf5f8a9 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -51,6 +51,8 @@ sub kill_action { sub acceptLicense { my ($o) = @_; + return if $o->{useless_thing_accepted}; + any::acceptLicense($o); } |