[mingw-crossreport: 5/15] Change to use Berkeley DB for storage.

[epienbro]

commit c6beb095dccd6ef834e4e17409133bdf7f6743ca
Author: Richard W.M. Jones <rjones at fedoraproject.org>
Date:   Fri Feb 13 16:37:59 2009 +0000

    Change to use Berkeley DB for storage.

 crossreport.pl           |    4 ++--
 mingw32-crossreport.spec |    5 ++++-
 sources                  |    2 +-
 update-crossreport-db.pl |    4 ++--
 4 files changed, 9 insertions(+), 6 deletions(-)
---
diff --git a/crossreport.pl b/crossreport.pl
index 7cc92a6..0f3ceaa 100755
--- a/crossreport.pl
+++ b/crossreport.pl
@@ -28,7 +28,7 @@ binmode STDOUT, ":utf8";
 
 use Getopt::Long;
 use Pod::Usage;
-use GDBM_File;
+use DB_File;
 use POSIX qw(strftime floor);
 
 =pod
@@ -118,7 +118,7 @@ sub get_db
 	     "/usr/share/crossreport/crossreport.db",
 	     "crossreport.db") {
 	if (-f $_) {
-	    tie %symbols, "GDBM_File", $_, &GDBM_READER, 0;
+	    tie %symbols, "DB_File", $_, O_RDONLY, 0666, $DB_HASH;
 	    return;
 	}
     }
diff --git a/mingw32-crossreport.spec b/mingw32-crossreport.spec
index f39cfae..0851131 100644
--- a/mingw32-crossreport.spec
+++ b/mingw32-crossreport.spec
@@ -1,5 +1,5 @@
 Name:           mingw32-crossreport
-Version:        5
+Version:        6
 Release:        1%{?dist}
 Summary:        Analysis tool to help cross-compilation to Windows
 
@@ -82,6 +82,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Fri Feb 13 2009 Richard W.M. Jones <rjones at redhat.com> - 6-1
+- Change to use Berkeley DB for storage.
+
 * Fri Feb 13 2009 Richard W.M. Jones <rjones at redhat.com> - 5-1
 - Requires binutils, for nm and c++filt (thanks Richard Hughes).
 
diff --git a/sources b/sources
index 115c9db..4ecf759 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-ecdbc678758bdde66d01ec2d657bbb8f  crossreport.db
+b4046143dc92c5f13b0cc6b5ab1541dd  crossreport.db
diff --git a/update-crossreport-db.pl b/update-crossreport-db.pl
index 628510c..afd128b 100755
--- a/update-crossreport-db.pl
+++ b/update-crossreport-db.pl
@@ -21,12 +21,12 @@
 
 use strict;
 
-use GDBM_File;
+use DB_File;
 
 # Map of symbol name -> RPM owner.
 my %symbols;
 my $symdbm =
-    tie %symbols, "GDBM_File", "crossreport.db", &GDBM_NEWDB, 0666;
+    tie %symbols, "DB_File", "crossreport.db", O_CREAT|O_RDWR, 0666, $DB_HASH;
 main ();
 $symbols{__crossreport_time} = time ();
 $symdbm->sync ();