From: Dobrica Pavlinusic Date: Fri, 7 Jul 2006 10:25:02 +0000 (+0000) Subject: dump rec in debug also X-Git-Url: http://git.rot13.org/?p=Biblio-Isis;a=commitdiff_plain;h=e0d2b17ded82f1cca4fd0723b2a82919474d5045 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 --- 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"); + diag "rec: ",Dumper( $rec ); + foreach my $f (keys %{$data->[$mfn-1]}) { my $i = 0; foreach my $v (@{$data->[$mfn-1]->{$f}}) {