view release on metacpan or  search on metacpan

lib/Apache2/SSI.pm  view on Meta::CPAN

    {
        $self->{_exp} = Apache2::Expression->new( legacy => 1, debug => $self->debug );
    }
    
    my $exp = $self->{_exp};
    my $hash = {};
    local $@;
    # try-catch
    eval
    {
        local $SIG{ALRM} = sub{ die( "Timeout!\n" ) };
        alarm(90);
        $hash = $exp->parse( $text );
        alarm(0);
    };
    if( $@ )
    {
        return( $self->error( "Error parsing expression '$text': $@" ) );
    }
    my $res = [];
    $opts->{top} = 1;