diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2012-08-31 21:24:02 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2012-08-31 21:56:37 +0100 |
| commit | 82c92bb0cf51ff1f59c6d56327097b6602f57e78 (patch) | |
| tree | 98c47c971c883f7e504b4b0c14c6e33de98f23ed /cpan | |
| parent | 688af3a746497769b32fe6c583bfd0e63611ecc8 (diff) | |
| download | perl-82c92bb0cf51ff1f59c6d56327097b6602f57e78.tar.gz | |
Upgrade DB_File to 1.827
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/DB_File/Changes | 5 | ||||
| -rw-r--r-- | cpan/DB_File/DB_File.pm | 6 |
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 /); |