From a9493db8b616de80fd82b0b66562f5d443d9b70f Mon Sep 17 00:00:00 2001
From: Stefan Siegel <siegel@linux-mandrake.com>
Date: Sat, 18 Aug 2001 00:10:21 +0000
Subject: fixed i18n

---
 perl-install/bootlook.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/bootlook.pm')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index a9cac7b0f..6f38455c8 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -222,7 +222,7 @@ sub get_main_menu {
 sub isXlaunched
 {
     my $line;
-    open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading: $!");
+    open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading: %s", $!);
     while (<INITTAB>) {
 	if (/id:([1-6]):initdefault:/) { $line = $_; last; }
     }
@@ -276,7 +276,7 @@ sub isAutologin
 {
     my $line;
     
-    open AUTOLOGIN, "/etc/sysconfig/autologin" or die _("can not open /etc/sysconfig/autologin for reading: $!");
+    open AUTOLOGIN, "/etc/sysconfig/autologin" or die _("can not open /etc/sysconfig/autologin for reading: %s", $!);
     while (<AUTOLOGIN>) {
 	if (/AUTOLOGIN=(yes|no)/) { $line = $_; last; }
     }
-- 
cgit v1.2.1