summaryrefslogtreecommitdiff
path: root/cpan/DB_File
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2012-08-31 21:24:02 +0100
committerSteve Hay <steve.m.hay@googlemail.com>2012-08-31 21:56:37 +0100
commit82c92bb0cf51ff1f59c6d56327097b6602f57e78 (patch)
tree98c47c971c883f7e504b4b0c14c6e33de98f23ed /cpan/DB_File
parent688af3a746497769b32fe6c583bfd0e63611ecc8 (diff)
downloadperl-82c92bb0cf51ff1f59c6d56327097b6602f57e78.tar.gz
Upgrade DB_File to 1.827
Diffstat (limited to 'cpan/DB_File')
-rw-r--r--cpan/DB_File/Changes5
-rw-r--r--cpan/DB_File/DB_File.pm6
2 files changed, 8 insertions, 3 deletions
diff --git a/cpan/DB_File/Changes b/cpan/DB_File/Changes
index 200ff17f58..a650c75470 100644
--- a/cpan/DB_File/Changes
+++ b/cpan/DB_File/Changes
@@ -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"
diff --git a/cpan/DB_File/DB_File.pm b/cpan/DB_File/DB_File.pm
index 6b7dc103ef..58cbebeeae 100644
--- a/cpan/DB_File/DB_File.pm
+++ b/cpan/DB_File/DB_File.pm
@@ -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 /);