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

fix for a problem in perl 5.8.4

Browse source
This commit is contained in:
JT Smith 2004-07-20 23:36:55 +00:00
parent c7b08bf91a
commit d7171e5d49
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Macro.pm
View file

@ -48,7 +48,7 @@ These functions are available from this package:
our $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 ')'
@ -56,7 +56,7 @@ our $parenthesis = qr /\( # Start with '(',
our $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-