Subversion Repositories DevTools

Rev

Rev 2429 | Rev 5109 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2429 Rev 4085
Line 680... Line 680...
680 
sub DebugDumpData
 680 
sub DebugDumpData
681 
{
 681 
{
682 
    my ($name, @refp) = @_;
 682 
    my ($name, @refp) = @_;
683 
 
 683 
 
684 
    my $ii = 0;
 684 
    my $ii = 0;
685 
    $Data::Dumper::Sortkey = 1;
 685 
    $Data::Dumper::Sortkeys = 1;
686 
    foreach  ( @refp )
 686 
    foreach  ( @refp )
687 
    {
 687 
    {
688 
        print Data::Dumper->Dump ( [$_], ["*[Arg:$ii] $name" ]);
 688 
        print Data::Dumper->Dump ( [$_], ["*[Arg:$ii] $name" ]);
689 
        $ii++
 689 
        $ii++
690 
    }
 690 
    }