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
    }