Clinton A Pierce wrote:
>
> I'm not at a system where diff/patch runs, but here's a fix for you. In
> _string_constant you're trying to expand \n and friends with:
>
> $constant = eval "qq($constant)";
>
> This breaks if the token ) appears in $constant. Changing () to anything
> else breaks if that anything else is in the string too.
>
> After thinking on this long and hard, here's a replacement bit of code:
>
> local $_=substr($constant,0,1);
> $constant =~ s/\$/\\\$/g;
> $constant = $_ . eval("qq$constant") . $_;
> warn "Constant: $@ " if $@;
Testing right now, if it passes tests I'll commit it.
Many thanks.
--
Jeff <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
