diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-22 22:28:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-22 22:28:16 +0000 |
| commit | 046c5b383794bfe42480723d32bbb91380671bab (patch) | |
| tree | e01726159329239568857533cde6549f97ab5531 /perl-install/log.pm | |
| parent | f27e0ad435eef7902c35562b75b03fb11f4e5c8d (diff) | |
| download | drakx-046c5b383794bfe42480723d32bbb91380671bab.tar drakx-046c5b383794bfe42480723d32bbb91380671bab.tar.gz drakx-046c5b383794bfe42480723d32bbb91380671bab.tar.bz2 drakx-046c5b383794bfe42480723d32bbb91380671bab.tar.xz drakx-046c5b383794bfe42480723d32bbb91380671bab.zip | |
no_comment
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 { |