diff options
| -rw-r--r-- | perl-install/standalone.pm | 7 |
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"; |