note
rsFalse
Hm. May some other variants help? Or are they way slower?....<br>
<code>"\G \s*? ^ \s*"</code> # non-greedy<br>
<code>"\G (?= \s* ^ ) \s*"</code> # look-ahead<br>
Upd. And do they reproduce regression?<br>
<br>
Upd. May that factoring out of <code>"\s* ^ \s*"</code> help?<br>
<code>
{
last if $text =~ /\G \s* \Z/gcmsx;
if ($text =~ /\G \s* ^ \s*/gcmsx) {
if ($text =~ /\G module \s+ (\S+?) \s* \( \s* (.*?) \s* \) \s* ;/gcmsx) { $name = $1 }
elsif ($text =~ /\G endmodule /gcmsx) { }
elsif ($text =~ /\G \S+ \s+ .*? \s* ;/gcmsx) { }
else { die "ERROR: unknown syntax\n" }
}
else { die "ERROR: unknown syntax\n" }
redo;
}
</code>
11128141
11128271