X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/606b8c863c09af323cddc03167106bc178b9fb3b..c364e43efab3ac6f0f0c20cd6f8f89a85ab45280:/dispatcher.pl

diff --git a/dispatcher.pl b/dispatcher.pl
index 603d166b2..e5621f6f5 100755
--- a/dispatcher.pl
+++ b/dispatcher.pl
@@ -2,9 +2,18 @@
 
 use strict;
 
+BEGIN {
+  use FindBin;
+
+  unshift(@INC, $FindBin::Bin . '/modules/override'); # Use our own versions of various modules (e.g. YAML).
+  push   (@INC, $FindBin::Bin);                       # '.' will be removed from @INC soon.
+  push   (@INC, $FindBin::Bin . '/modules/fallback'); # Only use our own versions of modules if there's no system version.
+}
+
 use SL::Dispatcher;
 
-SL::Dispatcher::pre_startup();
-SL::Dispatcher::handle_request('CGI');
+our $dispatcher = SL::Dispatcher->new('CGI');
+$dispatcher->pre_startup;
+$dispatcher->handle_request;
 
 1;