in reply to Carp croak not working when used in an imported function
A couple of ways around this:
orpackage PkgB; sub errmsg { local $Carp::CarpLevel = $Carp::CarpLevel + 1; PkgA::errmsg(@_); }
orpackage PkgB; our @ISA = 'PkgA';
package PkgB; our @CARP_NOT = 'PkgA';
|
|---|