diff -rup Log-Trace-1.070-dCF6ee/lib/Log/Trace.pm Log-Trace-1.070-0/lib/Log/Trace.pm --- Log-Trace-1.070-dCF6ee/lib/Log/Trace.pm 2005-11-24 02:56:52.000000000 -0800 +++ Log-Trace-1.070-0/lib/Log/Trace.pm 2017-10-23 14:29:44.000000000 -0700 @@ -270,7 +270,10 @@ sub _wrap_functions { next if $typeglob =~ /^(?:TRACE(?:F|_HERE)?|DUMP|AUTOLOAD)$/; # only wrap code references - my $sub = *{$symbols->{$typeglob}}{CODE}; + my $sub = *{ ref \$symbols->{$typeglob} eq 'GLOB' + ? $symbols->{$typeglob} + : *{"$package:\:$typeglob"} + }{CODE}; next unless (defined $sub and defined &$sub); # skip if sub is already wrapped