"require log" causes some pb, perl thinking that "log" is the log() function. So replace it with require 'log.pm' (perl_checker will handle this)

2 files changed, 3 insertions, 3 deletions

diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index acd33624c..457abca2a 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -104,7 +104,7 @@ sub vnew {
     if ($su && $>) {
 	die "you must be root to run this program";
     }
-    require log;
+    require 'log.pm'; #- "require log" causes some pb, perl thinking that "log" is the log() function
     undef *log::l;
     *log::l = sub {}; # otherwise, it will bother us :(
     require interactive::newt;
@@ -302,7 +302,7 @@ sub ask_from_normalize {
 	if ($_->{list} && $_->{not_edit} && !$_->{allow_empty_list}) {
 	    if (@{$_->{list}} == ()) {
 		eval {
-		    require log;
+		    require 'log.pm'; #- "require log" causes some pb, perl thinking that "log" is the log() function
 		    log::l("ask_from_normalize: empty list for $_->{label}\n" . backtrace());
 		};
 	    }
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 36807d1af..0a2230ca3 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -7,7 +7,7 @@ use Config;
 
 #- for sanity (if a use standalone is made during install, MANY problems will happen)
 if ($::isInstall) {
-    require log;
+    require 'log.pm'; #- "require log" causes some pb, perl thinking that "log" is the log() function
     log::l('ERROR: use standalone made during install :-(');
     require common;
     log::l('backtrace: ' . backtrace());