Revision 88e5a86e
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| scripts/task_server.pl | ||
|---|---|---|
|
use strict;
|
||
|
|
||
|
BEGIN {
|
||
|
require Cwd;
|
||
|
|
||
|
my $dir = $0;
|
||
|
$dir = Cwd::getcwd() . '/' . $dir unless $dir =~ m|^/|;
|
||
|
$dir =~ s|[^/]+$|..|;
|
||
|
|
||
|
chdir($dir) || die "Cannot change directory to ${dir}\n";
|
||
|
|
||
|
unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
|
||
|
push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Vor Ausführung Verzeichnis wechseln