diff options
Diffstat (limited to 'perl-install/log.pm')
| -rw-r--r-- | perl-install/log.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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 { |