#!/usr/bin/perl
# cpanel - test_sa_compiled                       Copyright(c) 2009 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited

BEGIN {
    unshift @INC, '/scripts';
    eval 'require Mail::SpamAssassin;';
    if ($Mail::SpamAssassin::VERSION) {
        my($perl_version) = ( $] =~ /^(\d\.\d\d\d)/ );
        unshift @INC, 
                ( -e "/var/lib/spamassassin/compiled/$perl_version/$Mail::SpamAssassin::VERSION" ?
                  "/var/lib/spamassassin/compiled/$perl_version/$Mail::SpamAssassin::VERSION" :
                  "/var/lib/spamassassin/compiled/$Mail::SpamAssassin::VERSION" );
    }
    if (@ARGV) {
        unshift @INC, $ARGV[0];
    }
}

# used by update_sa_rules to determine if sa-compile generated a working body_0 XS module
eval {
    require Mail::SpamAssassin::CompiledRegexps::body_0;

    my $string = 'test';
    my $match  = Mail::SpamAssassin::CompiledRegexps::body_0::scan($string);

    print "ok\n";
};