From 10a091cefa1c04f8b29f887a93673932e7ea2178 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 23 Jun 2004 08:11:22 +0000
Subject: - fix processing of config file broken by magic olivier - reuse
 cat_()

---
 perl-install/standalone/drakboot | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'perl-install/standalone/drakboot')

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 50afc3429..128a66fe3 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -106,15 +106,12 @@ my $splash_mode = !$no_bootsplash;
 my $keep_logo = 1;
 
 if (-r $themes{sysconfig}) {
-    my $SYSF;
-    open $SYSF, $themes{sysconfig} or die "Can't open $themes{sysconfig}\n";
-    while (<$SYSF>) {
-        local $_;
+    local $_;
+    while (cat_("$themes{sysconfig}") {
 	/^SPLASH=no/ and $splash_mode = 0;
 	/^THEME=(.*)/ and  -f "$themes{path}$1$themes{boot}{path}bootsplash-$cur_res.jpg" and $themes{default} = $1;
 	/^LOGO_CONSOLE=(.*)/ and $keep_logo = $1 ne 'no';
     }
-    close($SYSF);
 }
 
 my @boot_thms = if_(!$themes{default}, qw(default));
-- 
cgit v1.2.1