Change 30128 by [EMAIL PROTECTED] on 2007/02/05 12:24:24
Upgrade to DB_File 1.815
Affected files ...
... //depot/perl/ext/DB_File/Changes#34 edit
... //depot/perl/ext/DB_File/DB_File.pm#59 edit
... //depot/perl/ext/DB_File/DB_File.xs#72 edit
... //depot/perl/ext/DB_File/Makefile.PL#15 edit
Differences ...
==== //depot/perl/ext/DB_File/Changes#34 (text) ====
Index: perl/ext/DB_File/Changes
--- perl/ext/DB_File/Changes#33~26088~ 2005-11-11 08:44:39.000000000 -0800
+++ perl/ext/DB_File/Changes 2007-02-05 04:24:24.000000000 -0800
@@ -1,5 +1,13 @@
+1.815 4 February 2007
+
+ * A few casting cleanups for building with C++ from Steve Peters.
+
+ * Fixed problem with recno which happened if you changed directory after
+ opening the database. Problem reported by Andrew Pam.
+
+
1.814 11 November 2005
* Fix from Dominic Dunlop to tidy up an OS-X specific warning in
==== //depot/perl/ext/DB_File/DB_File.pm#59 (text) ====
Index: perl/ext/DB_File/DB_File.pm
--- perl/ext/DB_File/DB_File.pm#58~28729~ 2006-08-16 06:11:15.000000000
-0700
+++ perl/ext/DB_File/DB_File.pm 2007-02-05 04:24:24.000000000 -0800
@@ -1,10 +1,10 @@
# DB_File.pm -- Perl 5 interface to Berkeley DB
#
# written by Paul Marquess ([EMAIL PROTECTED])
-# last modified 11th November 2005
-# version 1.814
+# last modified 4th February 2007
+# version 1.815
#
-# Copyright (c) 1995-2005 Paul Marquess. All rights reserved.
+# Copyright (c) 1995-2007 Paul Marquess. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
@@ -165,7 +165,7 @@
use Carp;
-$VERSION = "1.81401" ;
+$VERSION = "1.815" ;
{
local $SIG{__WARN__} = sub {$splice_end_array = "@_";};
@@ -260,6 +260,10 @@
my (@arg) = @_ ;
my $tieHASH = ( (caller(1))[3] =~ /TIEHASH/ ) ;
+ use File::Spec;
+ $arg[1] = File::Spec->rel2abs($arg[1])
+ if defined $arg[1] ;
+
$arg[4] = tied %{ $arg[4] }
if @arg >= 5 && ref $arg[4] && $arg[4] =~ /=HASH/ && tied %{ $arg[4] } ;
==== //depot/perl/ext/DB_File/DB_File.xs#72 (text) ====
Index: perl/ext/DB_File/DB_File.xs
--- perl/ext/DB_File/DB_File.xs#71~28729~ 2006-08-16 06:11:15.000000000
-0700
+++ perl/ext/DB_File/DB_File.xs 2007-02-05 04:24:24.000000000 -0800
@@ -3,8 +3,8 @@
DB_File.xs -- Perl 5 interface to Berkeley DB
written by Paul Marquess <[EMAIL PROTECTED]>
- last modified 11th November 2005
- version 1.814
+ last modified 4th February 2007
+ version 1.815
All comments/suggestions/problems are welcome
@@ -114,6 +114,7 @@
1.812 - no change
1.813 - no change
1.814 - no change
+ 1.814 - C++ casting fixes
*/
==== //depot/perl/ext/DB_File/Makefile.PL#15 (text) ====
Index: perl/ext/DB_File/Makefile.PL
--- perl/ext/DB_File/Makefile.PL#14~15479~ 2002-03-24 14:11:46.000000000
-0800
+++ perl/ext/DB_File/Makefile.PL 2007-02-05 04:24:24.000000000 -0800
@@ -22,6 +22,17 @@
XSPROTOARG => '-noprototypes',
DEFINE => $OS2 || "",
INC => ($^O eq "MacOS" ? "-i ::::db:include" : ""),
+ ((ExtUtils::MakeMaker->VERSION() gt '6.30')
+ ? ('LICENSE' => 'perl')
+ : ()
+ ),
+ (
+ $] >= 5.005
+ ? (ABSTRACT_FROM => 'DB_File.pm',
+ AUTHOR => 'Paul Marquess <[EMAIL PROTECTED]>')
+ : ()
+ ),
+
'depend' => {'version$(OBJ_EXT)' => 'version.c'},
'clean' => {FILES => 'constants.h constants.xs'},
);
End of Patch.
