http://qs321.pair.com?node_id=11150158


in reply to Re^3: help with "symbol lookup error" message
in thread help with "symbol lookup error" message

Sure, we can use caller to do that:

#!/usr/bin/env perl
use strict;
use warnings;

BEGIN {
    unshift @INC, sub { warn "Loading $_[1] from " . (caller)[0] . "\n
+"; 0; };
}

use File::Copy;

[download]

🦛

In Section Seekers of Perl Wisdom