[perl #81502] BEGIN time error messages lack line numbers

[via RT]

# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #81502]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81502 >


mor...@jacq:~/p6/rakudo>./perl6 -e 'BEGIN { a() }'
===SORRY!===
Could not find sub &a
mor...@jacq:~/p6/rakudo>./perl6 -e 'a()'
Could not find sub &a
  in main program body at line 1

Any code run at BEGIN time lacks a stack trace, which is rather annoying.