| Subject: | No-case heredoc terminator incorrectly detected as lower case |
The warning is in error. There is no case. It may be appropriate to use
a *different* error.
Heredoc terminator must be in upper case at line 33, column 44. See
page 64 of PBP. (Severity: 2)
my @clients = @{ $dbh->selectall_arrayref( <<'...' ) || [] };
select DB.DBDESC, EMR.NAME, DB.DBSERVER, DB.DBNAME
from ENRMASTER..EMR as EMR join APPMASTER..DB as DB on EMR.DB_ID =
DB.DB_ID
order by DB.DBDESC, EMR.NAME
...