This commit is contained in:
Jeremy Fincher 2004-09-08 22:40:34 +00:00
parent 3ba8958a08
commit c958ef5d1c

View File

@ -262,6 +262,7 @@ def perlReToReplacer(s):
else: else:
return lambda s: r.sub(replace, s, 1) return lambda s: r.sub(replace, s, 1)
# XXX Should we find a way to allow $1, $2, etc.?
_perlVarSubstituteRe = re.compile(r'\$\{([^}]+)\}|\$([a-zA-Z][a-zA-Z0-9]*)') _perlVarSubstituteRe = re.compile(r'\$\{([^}]+)\}|\$([a-zA-Z][a-zA-Z0-9]*)')
def perlVariableSubstitute(vars, text): def perlVariableSubstitute(vars, text):
def replacer(m): def replacer(m):