From 229435ccf04db72401bb5df7d3b015565952fcc5 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Wed, 29 Sep 1999 14:13:47 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'V1_0'.

---
 perl-install/log.pm | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 perl-install/log.pm

(limited to 'perl-install/log.pm')

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;
-- 
cgit v1.2.1