[perl #119055] Make qq with no vars read-only
In commit
2484f8db I stopped constant folding from changing the read-
onliness of expressions like 1+2, which should return mutable values,
seeing that ${\1}+2 returns a mutable value. (After all, constant
folding is supposed to be solely an optimisation, without changing
behaviour.)
This is accomplished by turning on the PADTMP flag, which tells opera-
tors like \ to copy the scalar.
I did not realise at the time that some qq strings like "hello\n" and
qq "foo" (but not just "foo") are implemented using constant folding.
The lexer outputs something like stringify("foo"), which is compiled
down to a stringify op with a constant ("foo") as its only child.
In this case we really do want qq"foo" to be treated as a single con-
stant. That it is implemented using folding while "foo" is not is an
implementation detail we should hide.
So turn off the PADTMP flag when folding a stringify op.