From 000bb3a58af6d150a486d10a78fbfe9f5bcf9a30 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 05:25:01 +0000
Subject: get rid of the few remaining $LD_LOADER

---
 perl-install/detect_devices.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 2b3e3ff4c..34541e024 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -814,9 +814,11 @@ sub tryWrite($) {
 }
 
 sub syslog() {
-    -r "/tmp/syslog" and return map { /<\d+>(.*)/ } cat_("/tmp/syslog");
-    my $LD_LOADER = $ENV{LD_LOADER} || "";
-    `$LD_LOADER /bin/dmesg`;
+    if (-r "/tmp/syslog") {
+	map { /<\d+>(.*)/ } cat_("/tmp/syslog");
+    } else {
+	`/bin/dmesg`;
+    }
 }
 
 sub get_mac_model() {
-- 
cgit v1.2.1