From 5dd25e576d6ac8152e44075dfdb229e1337adf14 Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
Date: Thu, 15 Mar 2001 14:53:09 +0000
Subject: bootloader.pm, detect_devices.pm, install_steps_interactive.pm:
 changed temporary file read/write per Pixel

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 81c488a9c..d3bdbf8b7 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -55,14 +55,15 @@ sub burners    { grep { $_->{type} eq 'cdrom' && isBurner($_->{device}) } get()
 sub IDEburners { grep { $_->{type} eq 'cdrom' && isBurner($_->{device}) } getIDE() }
 
 sub get_mac_model() {
-	open(FILE, "/proc/device-tree/model") || die "Can't open /proc/device-tree/model";
-	my $mac_model = "";
-	local $_ = "";
-	while (<FILE>){
-		$mac_model = $_;
-	}
-	close(FILE);
-	chop($mac_model);
+#	open(FILE, "/proc/device-tree/model") || die "Can't open /proc/device-tree/model";
+#	my $mac_model = "";
+#	local $_ = "";
+#	while (<FILE>){
+#		$mac_model = $_;
+#	}
+#	close(FILE);
+	my $mac_model = cat_("/proc/device-tree/model") || die "Can't open /proc/device-tree/model";
+#	chop($mac_model);
 	log::l("Mac model: $mac_model");
 	$mac_model;	
 }
-- 
cgit v1.2.1