summaryrefslogtreecommitdiffstats
path: root/perl-install/log.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-31 00:08:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-31 00:08:34 +0000
commit3274c8723d495a7974cb360720abc88ba5a78a67 (patch)
tree19d1c960f478857633705f21fb39cc1d06f32a2c /perl-install/log.pm
parent26977564bb8eb4076b93e4cd25e95b44a67076ab (diff)
downloaddrakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar
drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar.gz
drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar.bz2
drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar.xz
drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.zip
make new perl_checker happy (and that's not easy!)
Diffstat (limited to 'perl-install/log.pm')
-rw-r--r--perl-install/log.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/log.pm b/perl-install/log.pm
index ac024819f..448928812 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -36,11 +36,11 @@ sub w { &l }
sub openLog(;$) {
if ($::isInstall) {
if ($_[0]) { #- useLocal
- open LOG, "> $_[0]";# or die "no log possible :(";
+ open LOG, "> $_[0]";
} else {
- open LOG, "> /dev/tty3";# or die "no log possible :(";
+ open LOG, "> /dev/tty3";
}
- open LOG2, ">> /tmp/ddebug.log";# or die "no log possible :(";
+ open LOG2, ">> /tmp/ddebug.log";
select((select(LOG), $| = 1)[0]);
select((select(LOG2), $| = 1)[0]);
}
@@ -51,7 +51,7 @@ sub openLog(;$) {
sub closeLog() {
if ($::isStandalone) {
c::closelog();
- } else { close LOG; close LOG2; }
+ } else { close LOG; close LOG2 }
}
#-######################################################################################