# {{{ ddump
#
sub ddump
{

    my $label       = shift;
    my $line_number = shift;

    my $ddv = $Data::Dumper::Varname;

    $Data::Dumper::Varname = "${label}_line_${line_number}_";

    print STDERR Dumper(@_);

    $Data::Dumper::Varname = $ddv;

}

# }}}