Skip to content

Commit

Permalink
Upgrade DB_File to 1.827
Browse files Browse the repository at this point in the history
  • Loading branch information
steve-m-hay committed Aug 31, 2012
1 parent 688af3a commit 82c92bb
Show file tree
Hide file tree
Showing 3 changed files with 9 additions and 4 deletions.
2 changes: 1 addition & 1 deletion Porting/Maintainers.pl
Original file line number Diff line number Diff line change
Expand Up @@ -529,7 +529,7 @@ package Maintainers;

'DB_File' => {
'MAINTAINER' => 'pmqs',
'DISTRIBUTION' => 'PMQS/DB_File-1.826.tar.gz',
'DISTRIBUTION' => 'PMQS/DB_File-1.827.tar.gz',
'FILES' => q[cpan/DB_File],
'EXCLUDED' => [
qr{^patches/},
Expand Down
5 changes: 5 additions & 0 deletions cpan/DB_File/Changes
Original file line number Diff line number Diff line change
@@ -1,3 +1,8 @@
1.827 25 Jan 2012

* DB_File.pm - Don't use "@_" construct
[RT ##79287]

1.826 25 Jan 2012

* t/db-btree.t - fix use of "length @array"
Expand Down
6 changes: 3 additions & 3 deletions cpan/DB_File/DB_File.pm
Original file line number Diff line number Diff line change
Expand Up @@ -165,17 +165,17 @@ our ($db_version, $use_XSLoader, $splice_end_array_no_length, $splice_end_array,
use Carp;


$VERSION = "1.826" ;
$VERSION = "1.827" ;
$VERSION = eval $VERSION; # needed for dev releases

{
local $SIG{__WARN__} = sub {$splice_end_array_no_length = "@_";};
local $SIG{__WARN__} = sub {$splice_end_array_no_length = join(" ",@_);};
my @a =(1); splice(@a, 3);
$splice_end_array_no_length =
($splice_end_array_no_length =~ /^splice\(\) offset past end of array at /);
}
{
local $SIG{__WARN__} = sub {$splice_end_array = "@_";};
local $SIG{__WARN__} = sub {$splice_end_array = join(" ", @_);};
my @a =(1); splice(@a, 3, 1);
$splice_end_array =
($splice_end_array =~ /^splice\(\) offset past end of array at /);
Expand Down

0 comments on commit 82c92bb

Please sign in to comment.