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

1
docs/changelog/6.x.x.txt
View file

@ -1,5 +1,6 @@
6.0.3 6.0.3
- Fixed a recursive style change bug. - Fixed a recursive style change bug.
- Bugfix [ 953593 ] perl -MWebGUI -e "" fails
6.0.2 6.0.2

4
lib/WebGUI/Macro.pm
View file

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