summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm20
1 files changed, 6 insertions, 14 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1b4cb7c69..469b6234e 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -722,19 +722,11 @@ sub acceptLicense {
my ($o) = @_;
require install_messages;
- $o->{release_notes} = join("\n\n", map {
- if ($::isInstall) {
- my $f = install_any::getFile($_);
- $f && cat__($f);
- } else {
- my $file = $_;
- my $d = find { -e "$_/$file" } glob_("/usr/share/doc/*-release-*");
- print cat_("$d/$file");
- $d && cat_("$d/$file");
- }
- } 'release-notes.txt', 'release-notes.' . arch() . '.txt');
-
- print $o->{release_notes};
+ $o->{release_notes} = join("\n\n", map {
+ my $f = install_any::getFile($_);
+ $f && cat__($f);
+ } 'release-notes.txt', 'release-notes.' . arch() . '.txt') if $::isInstall;
+
return if $o->{useless_thing_accepted};
my $r = $::testing ? 'Accept' : 'Refuse';
@@ -744,7 +736,7 @@ sub acceptLicense {
cancel => N("Quit"),
messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()),
interactive_help_id => 'acceptLicense',
- more_buttons => [ [ N("Release Notes"), sub { $o->ask_warn(N("Release Notes"), $o->{release_notes}) }, 1 ] ],
+ if_(!$::globetrotter, more_buttons => [ [ N("Release Notes"), sub { $o->ask_warn(N("Release Notes"), $o->{release_notes}) }, 1 ] ]),
callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
},
[ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ])