Jeff wrote:
>
> 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]>
Committed, with thanks.
--
Jeff <[EMAIL PROTECTED]><[EMAIL PROTECTED]>
