From fcd4e835b0845455e593b8ac81b928ec5f30e6b0 Mon Sep 17 00:00:00 2001 From: Jean Delvare Date: Fri, 8 Nov 2002 09:38:29 +0000 Subject: [PATCH] Fix sensors-detect so that it works on old Perl versions again Tested on versions 5.005_003 and 5.6.1 git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@1587 7894878c-1315-0410-8ee3-d5d059ff63e0 --- CHANGES | 3 ++- prog/detect/sensors-detect | 7 ++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/CHANGES b/CHANGES index 99982214..2f28a8cb 100644 --- a/CHANGES +++ b/CHANGES @@ -51,7 +51,8 @@ ask CVS about it: Program sensors: Add support for MC1066, Rambus Rimms; fix w83781d temp3 alarm; fix gl518sm rev 0x00 recognition Program sensors-detect: Add support for MC1066, smart battery; - add ACPI method for IBM system detection + add ACPI method for IBM system detection; + work with old Perl versions again Program sensord: (v0.6.2) Add sanity limits to newly-created RRD. 2.6.5 (20020915) diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect index 9a5d68f1..6bc62130 100755 --- a/prog/detect/sensors-detect +++ b/prog/detect/sensors-detect @@ -28,7 +28,8 @@ require 5.004; use strict; -use Fcntl qw(:seek); +use Fcntl; +use POSIX; ######################### # CONSTANT DECLARATIONS # @@ -2854,7 +2855,7 @@ sub system_safeness_by_dmi " Runing dmidecode would help us determining your system vendor, which allows\n", " safer operations. Please provide one of the following:\n "; print join ("\n ", @dmidecode); - print "\nYou can still go on, but you are encouraged to fix the problem first.\n"; + print "\n You can still go on, but you are encouraged to fix the problem first.\n\n"; return 0; } @@ -3221,7 +3222,7 @@ sub main } else { if (($have_sysconfig and not =~ /^\s*[Nn]/) or =~ /^\s*[Yy]/) { unless ($have_sysconfig) { - mkdir '/etc/sysconfig' + mkdir '/etc/sysconfig', 0777 or die "Sorry, can't create /etc/sysconfig ($!)?!?"; } open(SYSCONFIG, ">/etc/sysconfig/lm_sensors")