summaryrefslogtreecommitdiffstats
path: root/perl-install/log.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-24 22:04:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-24 22:04:44 +0000
commitf64471ee99e8b5d7ee21af0a51b5901fa597dbcf (patch)
tree9c8e0a46a2a495bd2c988e89c16facd3ee142a02 /perl-install/log.pm
parentfb77cab84379b7c286ad5f336d850d3b6db3e833 (diff)
downloaddrakx-f64471ee99e8b5d7ee21af0a51b5901fa597dbcf.tar
drakx-f64471ee99e8b5d7ee21af0a51b5901fa597dbcf.tar.gz
drakx-f64471ee99e8b5d7ee21af0a51b5901fa597dbcf.tar.bz2
drakx-f64471ee99e8b5d7ee21af0a51b5901fa597dbcf.tar.xz
drakx-f64471ee99e8b5d7ee21af0a51b5901fa597dbcf.zip
when testing, log on STDERR
Diffstat (limited to 'perl-install/log.pm')
-rw-r--r--perl-install/log.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/log.pm b/perl-install/log.pm
index 649ed30a0..ac024819f 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -19,7 +19,9 @@ sub F() { *LOG }
sub l {
$logOpen or openLog();
- if ($::isStandalone) {
+ if ($::testing) {
+ print STDERR @_, "\n";
+ } elsif ($::isStandalone) {
c::syslog(c::LOG_WARNING(), join("", @_));
} elsif ($::isInstall) {
print LOG "* ", @_, "\n";