open( *Parse::RecDescent::ERROR, '>', \(my $parse_error) )
	or croak("Error: unable to redirect SDTERR.");

    $Parse::RecDescent::skip = ' *\x{0} *';

    $::RD_ERRORS++;
    $::RD_WARN++;
    $::RD_HINT++;

    my $parser = Parse::RecDescent->new($grammar) or die("Bad grammar!");