summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-09-19 12:51:07 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-09-19 12:51:07 +0000
commit901718aefd0b6dc7abf71cb9ba2a380cb37919e5 (patch)
treeb88657d2e0b22f14dfc994ff3f235447854cf948 /perl-install
parent3561d72c93b6d704d4df6248ca93db1bd4bb8188 (diff)
downloaddrakx-backup-do-not-use-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar
drakx-backup-do-not-use-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar.gz
drakx-backup-do-not-use-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar.bz2
drakx-backup-do-not-use-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar.xz
drakx-backup-do-not-use-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.zip
when in install mode, log when a **** does a "use standalone"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 287c65417..b0db40100 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -3,6 +3,13 @@ package standalone; # $Id$
use c;
use Config;
+#- for sanity (if a use standalone is made during install, MANY problems will happen)
+if ($::isInstall) {
+ require 'log.pm';
+ log::l('ERROR: use standalone made during install :-(');
+ require common;
+ log::l('backtrace: ' . common::backtrace());
+}
$::isStandalone = 1;
$ENV{SHARE_PATH} ||= "/usr/share";