267268269270271272273274275276277
} catch (Perl5Util.RegexpException e) { throw new MalformedValueException(e.toString()); } pre = perl.preMatch(); func = perl.group(1); post = perl.postMatch(); tempname = getAnonymousFunctionName(); //r.makeUniqueName(r.anonymousPrefix + "_Function"); try {
282283284285286287288289290291292
} expression = pre + tempname + post; } expression = perl.group(1); result = parseSimpleFunc(name, expression, value, r, prefix); } finally { PerlPool.release(perl); } return result;