rpms/mingw32-crossreport/F-10 crossreport.pl, 1.1, 1.2 mingw32-crossreport.spec, 1.3, 1.4 sources, 1.2, 1.3 update-crossreport-db.pl, 1.1, 1.2

[Richard W.M. Jones]

Author: rjones

Update of /cvs/pkgs/rpms/mingw32-crossreport/F-10
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv32538

Modified Files:
	crossreport.pl mingw32-crossreport.spec sources 
	update-crossreport-db.pl 
Log Message:
Change to use Berkeley DB for storage.


Index: crossreport.pl
===================================================================
RCS file: /cvs/pkgs/rpms/mingw32-crossreport/F-10/crossreport.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- crossreport.pl	13 Feb 2009 09:21:57 -0000	1.1
+++ crossreport.pl	13 Feb 2009 16:45:31 -0000	1.2
@@ -28,7 +28,7 @@
 
 use Getopt::Long;
 use Pod::Usage;
-use GDBM_File;
+use DB_File;
 use POSIX qw(strftime floor);
 
 =pod
@@ -118,7 +118,7 @@
 	     "/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;
 	}
     }


Index: mingw32-crossreport.spec
===================================================================
RCS file: /cvs/pkgs/rpms/mingw32-crossreport/F-10/mingw32-crossreport.spec,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- mingw32-crossreport.spec	13 Feb 2009 15:53:14 -0000	1.3
+++ mingw32-crossreport.spec	13 Feb 2009 16:45:31 -0000	1.4
@@ -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 @@
 
 
 %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).
 


Index: sources
===================================================================
RCS file: /cvs/pkgs/rpms/mingw32-crossreport/F-10/sources,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- sources	13 Feb 2009 09:21:57 -0000	1.2
+++ sources	13 Feb 2009 16:45:31 -0000	1.3
@@ -1 +1 @@
-ecdbc678758bdde66d01ec2d657bbb8f  crossreport.db
+b4046143dc92c5f13b0cc6b5ab1541dd  crossreport.db


Index: update-crossreport-db.pl
===================================================================
RCS file: /cvs/pkgs/rpms/mingw32-crossreport/F-10/update-crossreport-db.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- update-crossreport-db.pl	13 Feb 2009 09:24:54 -0000	1.1
+++ update-crossreport-db.pl	13 Feb 2009 16:45:31 -0000	1.2
@@ -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 ();