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

diff --git a/dispatcher.pl b/dispatcher.pl
index 603d166b2..a6364ab83 100755
--- a/dispatcher.pl
+++ b/dispatcher.pl
@@ -2,9 +2,17 @@
 
 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.
+}
+
 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;