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

b ugfix [ 953593 ] perl -MWebGUI -e "" fails

Browse source
This commit is contained in:
JT Smith 2004-05-25 18:22:08 +00:00
parent 9caaefd88b
commit cdcdd2094e
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Macro.pm
View file

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