From 6ae6cf3b4f08444254fd3ed6c28e50036e7a2d6a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 2 Dec 2002 17:07:31 +0000
Subject: use output()

---
 perl-install/bootloader.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index d1676af98..63751aee0 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -605,8 +605,8 @@ sub install_yaboot {
     $lilo->{prompt} = $lilo->{timeout};
 
     if ($lilo->{message}) {
-	local *F;
-	open F, ">$::prefix/boot/message" and print F $lilo->{message} or $lilo->{message} = 0;
+	eval { output("$::prefix/boot/message", $lilo->{message}) }
+	  or $lilo->{message} = 0;
     }
     {
         local $\ = "\n";
@@ -704,8 +704,7 @@ sub install_silo {
     c::hasAliases() or log::l("clearing promvars alias as non supported"), $silo->{bootalias} = '';
 
     if ($silo->{message}) {
-	local *F;
-	open F, ">$::prefix/boot/message" and print F $silo->{message} or $silo->{message} = 0;
+	eval { output("$::prefix/boot/message", $silo->{message}) } or $silo->{message} = 0;
     }
     {
         local $\ = "\n";
-- 
cgit v1.2.1