From a845140044510ef3fdc179b333301218d3faefe5 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 18 Jan 2002 20:22:20 +0000
Subject: - write the 'common' part of the 'explanations' stuff,   with nice
 help from Pixel for the tough Perl part - move 'use standalone' up in all
 standalone apps,   to comply to 'explanations'

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

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

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