$ perl -e 'print qq|print <<"e\0e"|'>foo
$ perl foo
Can't find string terminator "e" anywhere before EOF at foo line 1.
It should not be chopping off part of the terminator.
This is a bit pedantic, but passing fixing this, which would entail passing the length to toke.c:S_missingterm, would allow us to eliminate a temporary SV and simplify S_missingterm significantly.
(I am holding off on fixing this, as it may conflict with other here-doc work going on right now. In fact, if someone wants to get to this before I do, go ahead. This falls in the ‘easy’ category.)
$ perl -e 'print qq|print <<"e\0e"|'>foo
$ perl foo
Can't find string terminator "e" anywhere before EOF at foo line 1.
It should not be chopping off part of the terminator.
This is a bit pedantic, but passing
s/passing //;
fixing this, which would entail
passing the length to toke.c:S_missingterm, would allow us to
eliminate a temporary SV and simplify S_missingterm significantly.
(I am holding off on fixing this, as it may conflict with other here-
doc work going on right now. In fact, if someone wants to get to this
before I do, go ahead. This falls in the ‘easy’ category.)
Migrated from rt.perl.org#128743 (status was 'open')
Searchable as RT128743$
The text was updated successfully, but these errors were encountered: