| Subject: | debug does not work |
Invalid [] range "[-1" in regex; marked by <-- HERE in m/(?{;
*Regexp::Grammars::LOGFILE
= Regexp::Grammars::_open_log('>>','-');
Regexp::Grammars::_init_try_stack(); })((?{; @! =
() if !pos;
local @Regexp::Grammars::RESULT_STACK
= (@Regexp::Grammars::RESULT_STACK, {});
local $Regexp::Grammars::TIMEOUT = { limit =>
-1>>1 };
local $Regexp::Grammars::DEBUG = 'off' }) ( at
/home/ingo/tmp/testgr.pl line 21.
Here is one grammar, although it occurs in several:
my $gr=do {
use Regexp::Grammars;
qr{
<pro>
<debug: match>
<token: int> [+-]?\d++
<token: literal> [.'!%\\\w_\^@\+\-\(\)\(\)\#{}\\\[\]]++
<minimize:>
<rule: pro> (<?literal> <tab=(\w+Table)> <[row]>+ % <ws>
|<not=literal> <sc=int>?)
#<rule: tab>
#(?=<literal>) \w+Table
<rule: row> <int> (\"<literal>\")?
(?{$MATCH{eval ($MATCH{int})}=>($MATCH{literal}); })
}xms
};