[MKDoc-commit] $Petal::Hash::String::VARIABLE_RE_BRACKETS no longer treats ${1} as a

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
$Petal::Hash::String::VARIABLE_RE_BRACKETS no longer treats ${1} as a variable

Modified Files:
--------------
    Petal:
        Changes
    Petal/lib/Petal/Hash:
        String.pm

-------------- next part --------------
Index: Changes
===================================================================
RCS file: /var/spool/cvs/Petal/Changes,v
retrieving revision 1.128
retrieving revision 1.129
diff -LChanges -LChanges -u -r1.128 -r1.129
--- Changes
+++ Changes
@@ -5,6 +5,7 @@
     - Removed references to HTML::TreeBuilder and XML::Parser (William McKee)
     - Skip test 071 when URI.pm not installed (William McKee)
     - Added tests 085 & 086 demonstrating breakage when using {disk,mem} cache and multi-language includes
+    - $Petal::Hash::String::VARIABLE_RE_BRACKETS no longer treats ${1} as a variable
 
 2.15 Wed Jan  5 15:31:00 2005
     - Fixed some 'used of uninitialized values' warnings
Index: String.pm
===================================================================
RCS file: /var/spool/cvs/Petal/lib/Petal/Hash/String.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -Llib/Petal/Hash/String.pm -Llib/Petal/Hash/String.pm -u -r1.10 -r1.11
--- lib/Petal/Hash/String.pm
+++ lib/Petal/Hash/String.pm
@@ -12,7 +12,7 @@
 
 
 our $VARIABLE_RE_SIMPLE   = qq |\\\$[A-Za-z_][A-Za-z0-9_\\.:\/]+|;
-our $VARIABLE_RE_BRACKETS = qq |\\\$(?<!\\\\)\\{.*?(?<!\\\\)\\}|;
+our $VARIABLE_RE_BRACKETS = qq |\\\$(?<!\\\\)\\{[^0-9].*?(?<!\\\\)\\}|;
 our $TOKEN_RE             = "(?:$VARIABLE_RE_SIMPLE|$VARIABLE_RE_BRACKETS)";