*** ../0.06_master/BC.pm	Wed Dec  4 15:48:12 2002
--- ../0.07_newrel/BC.pm	Tue Jan 20 05:12:34 2009
***************
*** 157,165 ****
      my $RE_comment_Cpp = q{(?:\/\*(?:(?!\*\/)[\s\S])*\*\/|\/\/[^\n]*\n)};
      my $RE_quoted      = (q{(?:(?:\")(?:[^\\\"]*(?:\\.[^\\\"]*)*)(?:\")}
                          .q{|(?:\')(?:[^\\\']*(?:\\.[^\\\']*)*)(?:\'))});
!     our $RE_balanced_brackets =
          qr'(?:[{]((?:(?>[^{}]+)|(??{$RE_balanced_brackets}))*)[}])';
!     our $RE_balanced_parens   =
          qr'(?:[(]((?:(?>[^()]+)|(??{$RE_balanced_parens}))*)[)])';
  
      # First, we crush out anything potentially confusing.
--- 157,167 ----
      my $RE_comment_Cpp = q{(?:\/\*(?:(?!\*\/)[\s\S])*\*\/|\/\/[^\n]*\n)};
      my $RE_quoted      = (q{(?:(?:\")(?:[^\\\"]*(?:\\.[^\\\"]*)*)(?:\")}
                          .q{|(?:\')(?:[^\\\']*(?:\\.[^\\\']*)*)(?:\'))});
!     our ($RE_balanced_brackets,
! 	 $RE_balanced_parens);
!     $RE_balanced_brackets =
          qr'(?:[{]((?:(?>[^{}]+)|(??{$RE_balanced_brackets}))*)[}])';
!     $RE_balanced_parens   =
          qr'(?:[(]((?:(?>[^()]+)|(??{$RE_balanced_parens}))*)[)])';
  
      # First, we crush out anything potentially confusing.