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
    }