Changeset 67

Show
Ignore:
Timestamp:
03/08/05 15:46:34
Author:
ask
Message:

don't wrap the MT_DIR initialization in BEGIN; it trips up mod_perl

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plugins/spamlookup/mt-spamlookup.cgi

    r66 r67  
    1212 
    1313my($MT_DIR, $PLUGIN_DIR, $PLUGIN_ENVELOPE); 
    14 BEGIN { 
    15     eval { 
    16         require File::Basename; import File::Basename qw( dirname ); 
    17         require File::Spec; 
    18  
    19         $MT_DIR = $ENV{PWD}; 
    20         $MT_DIR = dirname($0) 
    21             if !$MT_DIR || !File::Spec->file_name_is_absolute($MT_DIR); 
    22         $MT_DIR = dirname($ENV{SCRIPT_FILENAME}) 
    23             if ((!$MT_DIR || !File::Spec->file_name_is_absolute($MT_DIR)) 
    24                 && $ENV{SCRIPT_FILENAME}); 
    25         unless ($MT_DIR && File::Spec->file_name_is_absolute($MT_DIR)) { 
    26             die "Plugin couldn't find own location"; 
    27         } 
    28     }; if ($@) { 
    29         print "Content-type: text/html\n\n$@"; 
    30         exit(0); 
    31     } 
    32  
    33     $PLUGIN_DIR = $MT_DIR; 
    34     ($MT_DIR, $PLUGIN_ENVELOPE) = $MT_DIR =~ m|(.*[\\/])(plugins[\\/].*)$|i; 
    35  
    36     unshift @INC, $MT_DIR . 'lib'; 
    37     unshift @INC, $MT_DIR . 'extlib'; 
    38     unshift @INC, $MT_DIR . 'plugins'; 
    39 } 
     14eval { 
     15    require File::Basename; import File::Basename qw( dirname ); 
     16    require File::Spec; 
     17     
     18    $MT_DIR = $ENV{PWD}; 
     19    $MT_DIR = dirname($0) 
     20        if !$MT_DIR || !File::Spec->file_name_is_absolute($MT_DIR); 
     21    $MT_DIR = dirname($ENV{SCRIPT_FILENAME}) 
     22        if ((!$MT_DIR || !File::Spec->file_name_is_absolute($MT_DIR)) 
     23            && $ENV{SCRIPT_FILENAME}); 
     24    unless ($MT_DIR && File::Spec->file_name_is_absolute($MT_DIR)) { 
     25        die "Plugin couldn't find own location"; 
     26    } 
     27}; 
     28if ($@) { 
     29    print "Content-type: text/html\n\n$@"; 
     30    exit(0); 
     31} 
     32 
     33$PLUGIN_DIR = $MT_DIR; 
     34($MT_DIR, $PLUGIN_ENVELOPE) = $MT_DIR =~ m|(.*[\\/])(plugins[\\/].*)$|i; 
     35 
     36unshift @INC, $MT_DIR . 'lib'; 
     37unshift @INC, $MT_DIR . 'extlib'; 
     38unshift @INC, $MT_DIR . 'plugins'; 
    4039 
    4140package MT::App::SpamLookup;