diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-19 12:51:07 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-19 12:51:07 +0000 |
| commit | 901718aefd0b6dc7abf71cb9ba2a380cb37919e5 (patch) | |
| tree | b88657d2e0b22f14dfc994ff3f235447854cf948 /perl-install | |
| parent | 3561d72c93b6d704d4df6248ca93db1bd4bb8188 (diff) | |
| download | drakx-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar drakx-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar.gz drakx-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar.bz2 drakx-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.tar.xz drakx-901718aefd0b6dc7abf71cb9ba2a380cb37919e5.zip | |
when in install mode, log when a **** does a "use standalone"
Diffstat (limited to 'perl-install')
| -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"; |