"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "dbinfo" between
BerkeleyDB-0.63.tar.gz and BerkeleyDB-0.64.tar.gz

About: BerkeleyDB is a module which allows Perl programs to make use of the facilities provided by Berkeley DB (version 2 or greater).

dbinfo  (BerkeleyDB-0.63):dbinfo  (BerkeleyDB-0.64)
#!/usr/local/bin/perl #!/usr/bin/perl
# Name: dbinfo -- identify berkeley DB version used to create # Name: dbinfo -- identify berkeley DB version used to create
# a database file # a database file
# #
# Author: Paul Marquess <pmqs@cpan.org> # Author: Paul Marquess <pmqs@cpan.org>
# Version: 1.07 # Version: 1.07
# Date 2nd April 2011 # Date 2nd April 2011
# #
# Copyright (c) 1998-2019 Paul Marquess. All rights reserved. # Copyright (c) 1998-2020 Paul Marquess. All rights reserved.
# This program is free software; you can redistribute it and/or # This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself. # modify it under the same terms as Perl itself.
# Todo: Print more stats on a db file, e.g. no of records # Todo: Print more stats on a db file, e.g. no of records
# add log/txn/lock files # add log/txn/lock files
use strict ; use strict ;
my %Data = my %Data =
( (
skipping to change at line 64 skipping to change at line 64
{ {
Type => "Queue", Type => "Queue",
Versions => # DB_QAMVERSION Versions => # DB_QAMVERSION
{ {
1 => [0, "3.0.x"], 1 => [0, "3.0.x"],
2 => [0, "3.1.x"], 2 => [0, "3.1.x"],
3 => [0, "3.2.x -> 4.0.x"], 3 => [0, "3.2.x -> 4.0.x"],
4 => [1, "4.1.x or greater"], 4 => [1, "4.1.x or greater"],
} }
}, },
0x074582 => # DB_HEAPMAGIC 0x074582 => # DB_HEAPMAGIC
{ {
Type => "Heap", Type => "Heap",
Versions => # DB_HEAPVERSION Versions => # DB_HEAPVERSION
{ {
1 => [1, "5.2.x"], 1 => [1, "5.2.x"],
} }
}, },
) ; ) ;
die "Usage: dbinfo file\n" unless @ARGV == 1 ; die "Usage: dbinfo file\n" unless @ARGV == 1 ;
print "testing file $ARGV[0]...\n\n" ; print "testing file $ARGV[0]...\n\n" ;
open (F, "<$ARGV[0]") or die "Cannot open file $ARGV[0]: $!\n" ; open (F, "<$ARGV[0]") or die "Cannot open file $ARGV[0]: $!\n" ;
my $buff ; my $buff ;
read F, $buff, 30 ; read F, $buff, 30 ;
 End of changes. 4 change blocks. 
9 lines changed or deleted 9 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)