summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/log.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/log.pm b/perl-install/log.pm
index 2eaecb395..da3c56037 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -31,14 +31,16 @@ sub l {
}
sub openLog {
- if ($_[0]) { #- useLocal
- open $LOG, "> $_[0]";
+ my ($o_file) = @_;
+
+ if ($o_file) { #- useLocal
+ open $LOG, "> $o_file";
} elsif ($::isInstall) {
open $LOG, "> /dev/tty3";
open $LOG2, ">> /tmp/ddebug.log";
- select((select($LOG), $| = 1)[0]);
- select((select($LOG2), $| = 1)[0]);
}
+ select((select($LOG), $| = 1)[0]) if $LOG;
+ select((select($LOG2), $| = 1)[0]) if $LOG2;
}
sub closeLog() {