Parent Directory | Revision Log | Patch
revision 45 by dpavlin, Thu Jul 6 20:31:46 2006 UTC | revision 46 by dpavlin, Fri Jul 7 10:25:02 2006 UTC | |
---|---|---|
# | Line 114 sub test_data { | Line 114 sub test_data { |
114 | my $rec; | my $rec; |
115 | ok($rec = $isis->fetch($mfn), "fetch $mfn"); | ok($rec = $isis->fetch($mfn), "fetch $mfn"); |
116 | ||
117 | diag "rec: ",Dumper( $rec ); | |
118 | ||
119 | foreach my $f (keys %{$data->[$mfn-1]}) { | foreach my $f (keys %{$data->[$mfn-1]}) { |
120 | my $i = 0; | my $i = 0; |
121 | foreach my $v (@{$data->[$mfn-1]->{$f}}) { | foreach my $v (@{$data->[$mfn-1]->{$f}}) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |