sub callstack
{
    &$oldwarn if $oldwarn;
    require Carp;
    goto &Carp::confess;   # was:  Carp::confess(@_);
}