summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a059f92b0..6fd0462b9 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -74,6 +74,13 @@ so the messages will be displayed in english during installation") if $ENV{LANGU
sub acceptLicense {
my ($o) = @_;
+ $o->{release_notes} = do {
+ my $f = install_any::getFile('release-notes.txt');
+ join('', <$f>);
+ };
+
+ return if $o->{useless_thing_accepted};
+
my $r = $::testing ? 'Accept' : 'Refuse';
($::recovery ?