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

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

View file

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

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