dump rec in debug also

git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@46 4670fa4d-42ec-0310-ab5b-a66af6943492

diff --git a/t/002_isis.t b/t/002_isis.t
index c031d94..499b169 100755 (executable)
--- a/t/002_isis.t
+++ b/t/002_isis.t
@@ -114,6 +114,8 @@ sub test_data {
                my $rec;
                ok($rec = $isis->fetch($mfn), "fetch $mfn");
 
                my $rec;
                ok($rec = $isis->fetch($mfn), "fetch $mfn");
 

+               diag "rec: ",Dumper( $rec );
+

                foreach my $f (keys %{$data->[$mfn-1]}) {
                        my $i = 0;
                        foreach my $v (@{$data->[$mfn-1]->{$f}}) {
                foreach my $f (keys %{$data->[$mfn-1]}) {
                        my $i = 0;
                        foreach my $v (@{$data->[$mfn-1]->{$f}}) {