modperl update

[www.jankratochvil.net.git] / redirect.pl

diff --git a/redirect.pl b/redirect.pl
index 97a8cfb..6bf50cd 100755 (executable)
--- a/redirect.pl
+++ b/redirect.pl
@@ -25,6 +25,7 @@ $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
 use Apache::Constants qw(MOVED);