mostly documentation improvements, but also nicer output and field names

[Biblio-Isis] / scripts / dump_openisis.pl

diff --git a/scripts/dump_openisis.pl b/scripts/dump_openisis.pl
index 25e1d54..097d781 100755 (executable)
--- a/scripts/dump_openisis.pl
+++ b/scripts/dump_openisis.pl
@@ -24,7 +24,7 @@ for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
                                push @{$rec->{$f}}, OpenIsis::subfields($v);
                        }
                }
-               print STDERR Dumper($rec);
+               print STDERR Dumper($rec),"\n";
        }
        foreach my $k (sort keys %{$row}) {
                next if ($k eq 'mfn');