various bug fixes

This commit is contained in:
JT Smith 2004-07-10 17:14:41 +00:00
parent 577554b904
commit bd7ccaf29d
21 changed files with 68 additions and 30 deletions

View file

@ -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 ')'
#-------------------------------------------------------------------