summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm19
1 files changed, 9 insertions, 10 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 31e6b4373..0e1bc828d 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -935,15 +935,15 @@ sub display_release_notes {
}
sub acceptLicense {
- my ($o) = @_;
+ my ($in) = @_;
require messages;
- my $ext = $o->isa('interactive::gtk') ? '.html' : '.txt';
- my $separator = $o->isa('interactive::gtk') ? "\n\n" : '';
+ my $ext = $in->isa('interactive::gtk') ? '.html' : '.txt';
+ my $separator = $in->isa('interactive::gtk') ? "\n\n" : '';
my $release_notes = join($separator, grep { $_ } map {
if ($::isInstall) {
- my $f = install::any::getFile_($o->{stage2_phys_medium}, $_);
+ my $f = install::any::getFile_($::o->{stage2_phys_medium}, $_);
$f && cat__($f);
} else {
my $file = $_;
@@ -957,7 +957,7 @@ sub acceptLicense {
my $r = $::testing ? 'Accept' : 'Refuse';
- $o->ask_from_({ title => N("License agreement"),
+ $in->ask_from_({ title => N("License agreement"),
focus_first => 1,
cancel => N("Quit"),
messages => formatAlaTeX(messages::main_license() . "\n\n\n" . messages::warning_about_patents()),
@@ -970,17 +970,16 @@ sub acceptLicense {
{ list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', alignment => 'right',
format => sub { translate($_[0]) } },
if_($release_notes,
- { clicked => sub { display_release_notes($o, $release_notes) }, do_not_expand => 1,
+ { clicked => sub { display_release_notes($in, $release_notes) }, do_not_expand => 1,
val => \ (my $_t1 = N("Release Notes")), install_button => 1, no_indent => 1 }
),
])
- or reboot($o);
+ or reboot();
}
-sub reboot {
- my ($o) = @_;
-
+sub reboot() {
if ($::isInstall) {
+ my $o = $::o;
install::media::umount_phys_medium($o->{stage2_phys_medium});
install::media::openCdromTray($o->{stage2_phys_medium}{device}) if !detect_devices::is_xbox() && $o->{method} eq 'cdrom';
$o->exit;