summaryrefslogtreecommitdiffstats
path: root/perl-install/log.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-22 22:28:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-22 22:28:16 +0000
commit046c5b383794bfe42480723d32bbb91380671bab (patch)
treee01726159329239568857533cde6549f97ab5531 /perl-install/log.pm
parentf27e0ad435eef7902c35562b75b03fb11f4e5c8d (diff)
downloaddrakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar
drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar.gz
drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar.bz2
drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar.xz
drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.zip
no_comment
Diffstat (limited to 'perl-install/log.pm')
-rw-r--r--perl-install/log.pm6
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 {