[perl #129239] BEGIN blocks have wrong caller package

On Sat Sep 10 02:13:50 2016, mauke- wrote:
> #!perl
> use strict;
> use warnings;
> 
> package Mtfnpy;
> #line 100 "ABCDE"
> BEGIN {
>     printf "package=%s, file=%s, line=%d\n", caller;
> }
> 
> __END__
> 
> Output:
> package=main, file=ABCDE, line=102
> 
> Expected output:
> package=Mtfnpy, file=ABCDE, line=102

Here's a patch that adds a TODO test for now.

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=129239

• [perl #129239] BEGIN blocks have wrong caller package by l.mai@web.de via RT