From 9661b71b22ea7b41b2383b0b620caf48f09c161f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 5 Jul 2004 07:51:02 +0000
Subject: use $LOG instead of *LOG

---
 perl-install/log.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/perl-install/log.pm b/perl-install/log.pm
index 3f281b5c6..e14454b03 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -2,10 +2,10 @@ package log; # $Id$
 
 use diagnostics;
 use strict;
-use vars qw(*LOG *LOG2);
 
 use c;
 
+my ($LOG, $LOG2);
 
 #-#####################################################################################
 #- Globals
@@ -16,7 +16,7 @@ my $logDebugMessages = 0;
 #-######################################################################################
 #- Functions
 #-######################################################################################
-sub F() { *LOG }
+sub F() { $LOG }
 
 sub l {
     $logOpen or openLog();
@@ -25,8 +25,8 @@ sub l {
     } elsif ($::isStandalone) {
 	c::syslog(c::LOG_WARNING(), join("", @_));
     } elsif ($::isInstall) {
-	print LOG "* ", @_, "\n";
-	print LOG2 "* ", @_, "\n";
+	print $LOG "* ", @_, "\n";
+	print $LOG2 "* ", @_, "\n";
     } else {
 	print STDERR @_, "\n";
     }
@@ -37,13 +37,13 @@ sub w { &l }
 sub openLog(;$) {
     if ($::isInstall) {
 	if ($_[0]) { #- useLocal
-	    open LOG, "> $_[0]"; #-#
+	    open $LOG, "> $_[0]"; #-#
 	} else {
-	    open LOG, "> /dev/tty3"; #-#
+	    open $LOG, "> /dev/tty3"; #-#
 	}
-	open LOG2, ">> /tmp/ddebug.log"; #-#
-	select((select(LOG),  $| = 1)[0]);
-	select((select(LOG2), $| = 1)[0]);
+	open $LOG2, ">> /tmp/ddebug.log"; #-#
+	select((select($LOG),  $| = 1)[0]);
+	select((select($LOG2), $| = 1)[0]);
     }
     exists $ENV{DEBUG} and $logDebugMessages = 1;
     $logOpen = 1;
@@ -52,7 +52,7 @@ sub openLog(;$) {
 sub closeLog() { 
     if ($::isStandalone) {
 	c::closelog();
-    } else { close LOG; close LOG2 }
+    } else { close $LOG; close $LOG2 }
 }
 
 sub explanations { c::syslog(c::LOG_INFO()|c::LOG_LOCAL1(), "@_") }
-- 
cgit v1.2.1