[otrs-cvs] otrs/scripts apache2-perl-startup.pl,1.53,1.53.2.1

Comments:
Update of /home/cvs/otrs/scripts
In directory lancelot:/tmp/cvs-serv19553/scripts

Modified Files:
      Tag: rel-3_1
	apache2-perl-startup.pl 
Log Message:
Fixed bug#8533 - Apache will not start if you use mod_perl on Fedora 16 or 17.

Author: mb

Index: apache2-perl-startup.pl
===================================================================
RCS file: /home/cvs/otrs/scripts/apache2-perl-startup.pl,v
retrieving revision 1.53
retrieving revision 1.53.2.1
diff -2 -u -d -r1.53 -r1.53.2.1
--- apache2-perl-startup.pl	12 Dec 2011 17:12:23 -0000	1.53
+++ apache2-perl-startup.pl	13 Dec 2012 14:24:41 -0000	1.53.2.1
@@ -2,5 +2,5 @@
 # --
 # scripts/apache-perl-startup.pl - to load the modules if mod_perl is used
-# Copyright (C) 2001-2011 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -28,8 +28,15 @@
 $ENV{MOD_PERL} =~ /mod_perl/ or die "MOD_PERL not used!";
 
-# switch to unload_package_xs, the PP version is broken in Perl 5.10.1.
-# see http://rt.perl.org/rt3//Public/Bug/Display.html?id=72866
 BEGIN {
+    # switch to unload_package_xs, the PP version is broken in Perl 5.10.1.
+    # see http://rt.perl.org/rt3//Public/Bug/Display.html?id=72866
+
     $ModPerl::Util::DEFAULT_UNLOAD_METHOD = 'unload_package_xs';
+
+    # set $0 to index.pl because this is broken in mod_perl context;
+    # apart from that, on Fedora, $0 is not a path which would break OTRS.
+    # see bug # 8533
+
+    $0 = '/opt/otrs/bin/cgi-bin/index.pl';
 }
 
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log