diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2004-06-22 22:29:12 +0100 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-06-22 20:26:11 +0000 |
| commit | 9c095db2b2b99b70926d6f45029789d614441504 (patch) | |
| tree | 988e18b198fe1132df38cb7a4c5c01f689fd4f9e /ext/DB_File/DB_File.pm | |
| parent | 201359308d867a2411cd7e190e2d149b67112e8b (diff) | |
| download | perl-9c095db2b2b99b70926d6f45029789d614441504.tar.gz | |
DB_File 1.809 was RE: [perl #30237] DB_File methods and substr don't mix
From: "Paul Marquess" <Paul.Marquess@btinternet.com>
Message-Id: <20040622202910.WBSU21846.mta08-svc.ntlworld.com@MARQUESSPT21>
p4raw-id: //depot/perl@22970
Diffstat (limited to 'ext/DB_File/DB_File.pm')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index b9fb63a224..3f53d468cd 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -1,10 +1,10 @@ # DB_File.pm -- Perl 5 interface to Berkeley DB # # written by Paul Marquess (pmqs@cpan.org) -# last modified 22nd December 2003 -# version 1.808 +# last modified 20th June 2004 +# version 1.809 # -# Copyright (c) 1995-2003 Paul Marquess. All rights reserved. +# Copyright (c) 1995-2004 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 @@ our ($db_version, $use_XSLoader, $splice_end_array); use Carp; -$VERSION = "1.808_02" ; +$VERSION = "1.809" ; { local $SIG{__WARN__} = sub {$splice_end_array = "@_";}; @@ -266,7 +266,8 @@ sub tie_hash_or_array $arg[2] = O_CREAT()|O_RDWR() if @arg >=3 && ! defined $arg[2]; $arg[3] = 0666 if @arg >=4 && ! defined $arg[3]; - # make recno in Berkeley DB version 2 work like recno in version 1. + # make recno in Berkeley DB version 2 (or better) work like + # recno in version 1. if ($db_version > 1 and defined $arg[4] and $arg[4] =~ /RECNO/ and $arg[1] and ! -e $arg[1]) { open(FH, ">$arg[1]") or return undef ; @@ -2252,7 +2253,7 @@ compile properly on IRIX 5.3. =head1 COPYRIGHT -Copyright (c) 1995-2003 Paul Marquess. All rights reserved. This program +Copyright (c) 1995-2004 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. |