From b7661719bc1f1ebd078c7e7adb2eb25c83526c27 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Nov 2002 14:25:59 +0000
Subject: add/remove spaces to make perl_checker happy

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

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 92112f8b8..e8084e8ae 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -466,7 +466,7 @@ sub main {
 	    $o->{intf} ||= { $l->{DEVICE} => $l };
 	}
 	if (-e '/etc/resolv.conf') {
-	    my $file ='/etc/resolv.conf';
+	    my $file = '/etc/resolv.conf';
 	    log::l("found network config file $file");
 	    add2hash($o->{netc}, network::read_resolv_conf($file));
 	}
@@ -618,7 +618,7 @@ sub main {
 
     #- to ensure linuxconf doesn't cry against those files being in the future
     foreach ('/etc/modules.conf', '/etc/crontab', '/etc/sysconfig/mouse', '/etc/sysconfig/network', '/etc/X11/fs/config') {
-	my $now = time - 24 * 60 * 60;
+	my $now = time() - 24 * 60 * 60;
 	utime $now, $now, "$o->{prefix}/$_";
     }
     $::live or install_any::killCardServices();
-- 
cgit v1.2.1