1 files changed, 0 insertions, 47 deletions
diff --git a/perl-install/log.pm b/perl-install/log.pm
deleted file mode 100644
index e29dc410e..000000000
--- a/perl-install/log.pm
+++ /dev/null
@@ -1,47 +0,0 @@
-package log;
-
-use diagnostics;
-use strict;
-
-
-#-#####################################################################################
-#- Globals
-#-#####################################################################################
-my $logOpen = 0;
-my $logDebugMessages = 0;
-
-
-#-######################################################################################
-#- Functions
-#-######################################################################################
-sub fd() { fileno LOG }
-
-sub l {
-    $logOpen or openLog();
-    print LOG "* ", @_, "\n";
-    print LOG2 "* ", @_, "\n";
-}
-sub ld { $logDebugMessages and &l }
-sub w { &l }
-
-sub openLog(;$) {
-    if ($::isStandalone) {
-	open LOG, ">&STDERR";
-    } elsif ($_[0]) { #- useLocal
-	open LOG, "> $_[0]";# or die "no log possible :(";
-    } else {
-	open LOG, "> /dev/tty3" or open LOG, ">> /tmp/install.log";# or die "no log possible :(";
-    }
-    open LOG2, ">> /tmp/ddebug.log";# or die "no log possible :(";
-    select((select(LOG), $| = 1)[0]);
-    select((select(LOG2), $| = 1)[0]);
-    exists $ENV{DEBUG} and $logDebugMessages = 1;
-    $logOpen = 1;
-}
-
-sub closeLog() { close LOG; close LOG2; }
-
-#-######################################################################################
-#- Wonderful perl :(
-#-######################################################################################
-1;