oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed the macro 5.8.4 thing

Browse source
This commit is contained in:
Len Kranendonk 2004-07-23 21:09:50 +00:00
parent cfceb1f68c
commit c505d48f91
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Macro.pm
View file

@ -44,19 +44,19 @@ These functions are available from this package:
=cut
our $parenthesis = qr /\( # Start with '(',
my $parenthesis;
$parenthesis = qr /\( # Start with '(',
(?: # Followed by
(?>[^()]+) # Non-parenthesis
|(??{ $::parenthesis }) # Or a balanced parenthesis block
|(??{ $parenthesis }) # Or a balanced parenthesis block
)* # zero or more times
\)/x; # Ending with ')'
our $nestedMacro = qr /(\^ # Start with carat
my $nestedMacro;
$nestedMacro = qr /(\^ # Start with carat
([^\^;()]+) # And one or more none-macro characters -tagged-
((?: # Followed by
(??{ $::parenthesis }) # a balanced parenthesis block
(??{ $parenthesis }) # a balanced parenthesis block
|(?>[^\^;]) # Or not a carat or semicolon
# |(??{ $nestedMacro }) # Or a balanced carat-semicolon block
)*) # zero or more times -tagged-