From d7171e5d49ad986905b206a9322a2366578b1bfe Mon Sep 17 00:00:00 2001 From: JT Smith Date: Tue, 20 Jul 2004 23:36:55 +0000 Subject: [PATCH] fix for a problem in perl 5.8.4 --- lib/WebGUI/Macro.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/WebGUI/Macro.pm b/lib/WebGUI/Macro.pm index 1b41d87ec..da0f89ae5 100644 --- a/lib/WebGUI/Macro.pm +++ b/lib/WebGUI/Macro.pm @@ -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-