--- trunk/scripts/dump_fastmarc.pl	2007/10/30 16:41:06	22
+++ trunk/scripts/dump_fastmarc.pl	2007/11/06 20:06:26	25
@@ -69,5 +69,5 @@
 	print "REC $mfn\n";
 	print $marc->last_leader,"\n";
 	print $marc->to_ascii($mfn),"\n";
-	print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h});
+	print "hash is ",Dumper($marc->to_hash($mfn, include_subfields => 1)) if ($opt{h});
 }