# New Ticket Created by Zoffix Znet
# Please include the string: [perl #128461]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=128461 >
In the examples below, no location of the error is printed. The bigger the app,
the harder this error would be to track down.
Even when `die`ing inside the EXPORT sub, no line number is shown.
zoffix@leliana:/tmp/tmp.9PVg6XdMEY$ cat Foo.pm6
sub EXPORT ($) {}
zoffix@leliana:/tmp/tmp.9PVg6XdMEY$ perl6 -I. -e 'use Foo'
===SORRY!===
Too few positionals passed; expected 1 argument but got 0
zoffix@leliana:/tmp/tmp.9PVg6XdMEY$ pico Foo.pm6
zoffix@leliana:/tmp/tmp.9PVg6XdMEY$ cat Foo.pm6
sub EXPORT ($a = '') {$a or die "Bad arg"}
zoffix@leliana:/tmp/tmp.9PVg6XdMEY$ perl6 -I. -e 'use Foo'
===SORRY!===
Bad arg
zoffix@leliana:/tmp/tmp.9PVg6XdMEY$
