Changeset 3629 for trunk

Timestamp:

04/20/09 07:01:41 (7 months ago)

Author:

asawada

Message:

Look up $ENV{SCRIPT_FILENAME} at first to determine MT home directory. because $0 doesn't have pathinfo under suExec. bugzid:100523.

Files:

• trunk/lib/MT/Bootstrap.pm (modified) (1 diff)

trunk/lib/MT/Bootstrap.pm

@@ -13 +13 @@
     require File::Spec;
     if (!($dir = $ENV{MT_HOME})) {
-        if ($0 =~ m!(.*([/\\]))!) {
+        if (($ENV{SCRIPT_FILENAME} || $0) =~ m!(.*([/\\]))!) {
             $orig_dir = $dir = $1;
             my $slash = $2;