Subversion Repositories DevTools

Rev

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

Rev 369 Rev 379
Line 670... Line 670...
670 
sub DebugDumpData
 670 
sub DebugDumpData
671 
{
 671 
{
672 
    my ($name, @refp) = @_;
 672 
    my ($name, @refp) = @_;
673 
 
 673 
 
674 
    my $ii = 0;
 674 
    my $ii = 0;
- 
 
 675 
    $Data::Dumper::Sortkey = 1;
675 
    foreach  ( @refp )
 676 
    foreach  ( @refp )
676 
    {
 677 
    {
677 
        print Data::Dumper->Dump ( [$_], ["*[Arg:$ii] $name" ]);
 678 
        print Data::Dumper->Dump ( [$_], ["*[Arg:$ii] $name" ]);
678 
        $ii++
 679 
        $ii++
679 
    }
 680 
    }