Thank You, that’s it. My import function ended something like this:

sub import {
    # …
    Auth->export_to_level(1, grep { $_ !~ /^-/ } @_);
}
[download]

The grepping part ensures that we do not try to export functions that do not really exist (-auth and such are just pragmas, the corresponding functions do not exist).