Revision 32822bba
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
BEGIN {
|
| 6 |
unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML). |
|
| 7 |
push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version. |
|
| 6 |
use SL::System::Process; |
|
| 7 |
my $exe_dir = SL::System::Process::exe_dir; |
|
| 8 |
|
|
| 9 |
unshift @INC, "${exe_dir}/modules/override"; # Use our own versions of various modules (e.g. YAML).
|
|
| 10 |
push @INC, "${exe_dir}/modules/fallback"; # Only use our own versions of modules if there's no system version.
|
|
| 11 |
unshift @INC, $exe_dir; |
|
| 8 | 12 |
} |
| 9 | 13 |
|
| 10 | 14 |
use CGI qw( -no_xhtml); |
Auch abrufbar als: Unified diff
Auch das Installationsbasisverzeichnis in @INC aufnehmen
Hintergrund ist konditionales Requiren von SL-Modulen, wenn vorher ein
chdir gemacht wurde (blöder alter Code, der chdirt...).