various bug fixes
This commit is contained in:
parent
577554b904
commit
bd7ccaf29d
21 changed files with 68 additions and 30 deletions
|
|
@ -45,7 +45,14 @@ These functions are available from this package:
|
|||
=cut
|
||||
|
||||
|
||||
our $parenthesis;
|
||||
our $parenthesis = qr /\( # Start with '(',
|
||||
(?: # Followed by
|
||||
(?>[^()]+) # Non-parenthesis
|
||||
|(??{ $parenthesis }) # Or a balanced parenthesis block
|
||||
)* # zero or more times
|
||||
\)/x; # Ending with ')'
|
||||
|
||||
|
||||
our $nestedMacro = qr /(\^ # Start with carat
|
||||
([^\^;()]+) # And one or more none-macro characters -tagged-
|
||||
((?: # Followed by
|
||||
|
|
@ -57,12 +64,6 @@ our $nestedMacro = qr /(\^ # Start with carat
|
|||
|
||||
|
||||
|
||||
$parenthesis = qr /\( # Start with '(',
|
||||
(?: # Followed by
|
||||
(?>[^()]+) # Non-parenthesis
|
||||
|(??{ $parenthesis }) # Or a balanced parenthesis block
|
||||
)* # zero or more times
|
||||
\)/x; # Ending with ')'
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue