From 901718aefd0b6dc7abf71cb9ba2a380cb37919e5 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 19 Sep 2002 12:51:07 +0000
Subject: when in install mode, log when a **** does a "use standalone"

---
 perl-install/standalone.pm | 7 +++++++
 1 file changed, 7 insertions(+)

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