...
sub _dump_trace_calc_saved_single_arg
{
    my ($nothard, $arg) = @_; # <-- LINE 6548

    my $type;
    if ( not defined $arg ) {    # undefined parameter
        return "undef";
    }
...