From 046c5b383794bfe42480723d32bbb91380671bab Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 22 Sep 2000 22:28:16 +0000
Subject: no_comment

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

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

diff --git a/perl-install/log.pm b/perl-install/log.pm
index 534529494..b862ca06a 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -21,9 +21,11 @@ sub l {
     $logOpen or openLog();
     if ($::isStandalone) {
 	c::syslog(join "", @_);
-    } else {
+    } elsif ($::isInstall) {
 	print LOG "* ", @_, "\n";
 	print LOG2 "* ", @_, "\n";
+    } else {
+	print @_, "\n";
     }
 }
 sub ld { $logDebugMessages and &l }
@@ -32,7 +34,7 @@ sub w { &l }
 sub openLog(;$) {
     if ($::isStandalone) {
 	c::openlog("DrakX");
-    } else {
+    } elsif ($::isInstall) {
 	if ($_[0]) { #- useLocal
 	    open LOG, "> $_[0]";# or die "no log possible :(";
 	} else {
-- 
cgit v1.2.1