From eb411e96a84d82b31bc173025803b2d7dd8ab404 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 8 Apr 2005 12:19:24 +0000
Subject: [PATCH] dump sorted fields

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/MARC-Fast/trunk@3 49f9634a-d7ec-0310-8e6b-ec35c6cc8804
---
 scripts/dump_fastmarc.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/dump_fastmarc.pl b/scripts/dump_fastmarc.pl
index 5581b89..1257ac3 100755
--- a/scripts/dump_fastmarc.pl
+++ b/scripts/dump_fastmarc.pl
@@ -20,7 +20,7 @@ print STDERR "$file has ",$marc->count," records...\n\n";
 for my $mfn (1 .. $marc->count) {
 	my $rec = $marc->fetch($mfn) || next;
 	print "REC $mfn\n";
-	foreach my $f (keys %{$rec}) {
+	foreach my $f (sort keys %{$rec}) {
 		print "$f\t",$rec->{$f},"\n";
 	}
 	print "\n";
-- 
2.20.1