In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2a527d377a9f42e51be8e7dd89e01cfe8bca6764?hp=688af3a746497769b32fe6c583bfd0e63611ecc8>
- Log ----------------------------------------------------------------- commit 2a527d377a9f42e51be8e7dd89e01cfe8bca6764 Author: Steve Hay <[email protected]> Date: Fri Aug 31 21:25:29 2012 +0100 perldelta for 94814ff57e and 5e56f3f11f M pod/perldelta.pod commit 82c92bb0cf51ff1f59c6d56327097b6602f57e78 Author: Steve Hay <[email protected]> Date: Fri Aug 31 21:24:02 2012 +0100 Upgrade DB_File to 1.827 M Porting/Maintainers.pl M cpan/DB_File/Changes M cpan/DB_File/DB_File.pm ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/DB_File/Changes | 5 +++++ cpan/DB_File/DB_File.pm | 6 +++--- pod/perldelta.pod | 10 ++++++++++ 4 files changed, 19 insertions(+), 4 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index a12ee28..9ab2631 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -529,7 +529,7 @@ use File::Glob qw(:case); '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/}, diff --git a/cpan/DB_File/Changes b/cpan/DB_File/Changes index 200ff17..a650c75 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 6b7dc10..58cbebe 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 /); diff --git a/pod/perldelta.pod b/pod/perldelta.pod index a5c6024..d9b2cc6 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -110,12 +110,22 @@ XXX =item * +L<DB_File> has been upgraded from version 1.826 to 1.827. The main Perl module +no longer uses the C<"@_"> construct. + +=item * + L<File::Copy> has been upgraded from version 2.23 to 2.24. C<copy()> no longer zeros files when copying into the same directory, and also now fails (as it has long been documented to do) when attempting to copy a file over itself. =item * +L<Locale::Codes> has been upgraded from version 3.22 to 3.23. It includes some +new codes. + +=item * + L<Socket> has been upgraded from version 2.004 to 2.006. C<unpack_sockaddr_in()> and C<unpack_sockaddr_in6()> now return just the IP address in scalar context, and C<inet_ntop()> now guards against incorrect -- Perl5 Master Repository
