perl: wrong parsing of "return <<HEREDOC"

[jumpercc]

this code parsed wrong

package test;
sub test1 {
    return <<EOT;
'
EOT
}
sub test2 {
    #
}

"test2" must be in tree too

[jumpercc]

$ git push Counting objects: 7, done. Delta compression using up to 8 threads. Compressing objects: 100% (4/4), done. Writing objects: 100% (4/4), 678 bytes, done. Total 4 (delta 2), reused 0 (delta 0) To git@github.com:HTD/NST.git 249d321..c671f03 testing -> testing