summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2001-03-15 14:53:09 +0000
committerStew Benedict <stewb@mandriva.org>2001-03-15 14:53:09 +0000
commit5dd25e576d6ac8152e44075dfdb229e1337adf14 (patch)
tree8af7a441fceb29adcef885ac73d2ba516667c464 /perl-install/install_steps_interactive.pm
parentb20fa07a463ad522aeee545eecf3fff7dbb65a6f (diff)
downloaddrakx-5dd25e576d6ac8152e44075dfdb229e1337adf14.tar
drakx-5dd25e576d6ac8152e44075dfdb229e1337adf14.tar.gz
drakx-5dd25e576d6ac8152e44075dfdb229e1337adf14.tar.bz2
drakx-5dd25e576d6ac8152e44075dfdb229e1337adf14.tar.xz
drakx-5dd25e576d6ac8152e44075dfdb229e1337adf14.zip
bootloader.pm, detect_devices.pm, install_steps_interactive.pm: changed temporary file read/write per Pixel
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm8
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a8fe951b7..f344e5caa 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -962,12 +962,8 @@ try to force installation even if that destroys the first partition?"));
unlink "$o->{prefix}/tmp/.error";
die "already displayed";
} elsif (arch() =~ /ppc/) {
- open(FILE, "$o->{prefix}/tmp/of_boot_dev") || die "Can't open $o->{prefix}/tmp/of_boot_dev";
- my $of_boot = "";
- local $_ = "";
- while (<FILE>){
- $of_boot = $_;
- }
+ my $of_boot = cat_("$o->{prefix}/tmp/of_boot_dev") || die "Can't open $o->{prefix}/tmp/of_boot_dev";
+ chop($of_boot);
unlink "$o->{prefix}/tmp/.error";
$o->ask_warn('', _("You will need to change your Open Firmware boot-device to\n enable the bootloader. Hold down Command-Option-O-F\n at reboot and enter:\n setenv boot-device $of_boot,\\ofboot.b\n Then type: shut-down\nAt your next boot you should see the bootloader prompt."));
}