summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/interactive.pm4
-rw-r--r--perl-install/standalone.pm2
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());