summaryrefslogtreecommitdiffstats
path: root/perl-install/log.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/log.pm')
-rw-r--r--perl-install/log.pm6
1 files changed, 2 insertions, 4 deletions
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 {