Front page | perl.perl5.changes |
Postings from May 2008
Change 33925: Integrate:
From:
Nicholas Clark
Date:
May 25, 2008 14:00
Subject:
Change 33925: Integrate:
Change 33925 by nicholas@mouse-mill on 2008/05/25 20:50:26
Integrate:
[ 33640]
Integrate:
[ 33399]
Subject: [PATCH] More diagnostics for Fatal.pm
From: slaven@rezic.de
Date: Fri, 29 Feb 2008 11:29:31 +0100 (CET)
Message-ID: <49601.89.247.126.95.1204280971.squirrel@mail.rezic.de>
plus version bump
[ 33621]
$VERSION++ for all the non-dual life modules in ext/ that
Porting/cmpVERSION.pl reports differ from the 5.10.0 release.
[ 33622]
Fix bug in the code for --opened - it was not working on blead.
[ 33623]
$VERSION++ for all the non-dual life modules outside ext/ that
Porting/cmpVERSION.pl reports differ from the 5.10.0 release.
All the rest of the differences would seem to be dual-life. :-(
[ 33624]
Module::CoreList wasn't listing Config.pm everywhere.
[ 33913]
Integrate:
[ 33838]
Upgrade to ExtUtils-Command-1.14
[ 33900]
Upgrade to AutoLoader-5.66
[ 33912]
Bump AutoSplit to a dev version number to reflect the small change in
the __DATA__ section made in the AutoLoader 5.66 release. All will get
back in sync with the next AutoLoader release.
Affected files ...
... //depot/maint-5.8/perl/Porting/Maintainers.pm#6 integrate
... //depot/maint-5.8/perl/ext/B/B/Concise.pm#43 integrate
... //depot/maint-5.8/perl/ext/Devel/DProf/DProf.pm#10 integrate
... //depot/maint-5.8/perl/ext/Devel/Peek/Peek.pm#5 integrate
... //depot/maint-5.8/perl/ext/POSIX/POSIX.pm#16 integrate
... //depot/maint-5.8/perl/ext/PerlIO/encoding/encoding.pm#8 integrate
... //depot/maint-5.8/perl/ext/PerlIO/scalar/scalar.pm#7 integrate
... //depot/maint-5.8/perl/ext/PerlIO/via/via.pm#6 integrate
... //depot/maint-5.8/perl/ext/Socket/Socket.pm#8 integrate
... //depot/maint-5.8/perl/lib/AutoLoader.pm#5 integrate
... //depot/maint-5.8/perl/lib/AutoSplit.pm#7 integrate
... //depot/maint-5.8/perl/lib/ExtUtils/Command.pm#10 integrate
... //depot/maint-5.8/perl/lib/ExtUtils/Embed.pm#7 integrate
... //depot/maint-5.8/perl/lib/Fatal.pm#5 integrate
... //depot/maint-5.8/perl/lib/Fatal.t#3 integrate
... //depot/maint-5.8/perl/lib/File/Basename.pm#11 integrate
... //depot/maint-5.8/perl/lib/File/Find.pm#20 integrate
... //depot/maint-5.8/perl/lib/Module/CoreList.pm#5 integrate
... //depot/maint-5.8/perl/os2/OS2/REXX/REXX.pm#4 integrate
Differences ...
==== //depot/maint-5.8/perl/Porting/Maintainers.pm#6 (text) ====
Index: perl/Porting/Maintainers.pm
--- perl/Porting/Maintainers.pm#5~33196~ 2008-02-02 09:19:38.000000000 -0800
+++ perl/Porting/Maintainers.pm 2008-05-25 13:50:26.000000000 -0700
@@ -14,11 +14,12 @@
require "Maintainers.pl";
use vars qw(%Modules %Maintainers);
-use vars qw(@ISA @EXPORT_OK);
+use vars qw(@ISA @EXPORT_OK $VERSION);
@ISA = qw(Exporter);
@EXPORT_OK = qw(%Modules %Maintainers
get_module_files get_module_pat
show_results process_options);
+$VERSION = 0.02;
require Exporter;
use File::Find;
@@ -107,9 +108,12 @@
my @Files;
if ($Opened) {
- my @raw = `p4 opened`;
+ @Files = `p4 opened`;
die if $?;
- @Files = map {s!#.*!!s; s!^//depot/.*?/perl/!!; $_} @raw;
+ foreach (@Files) {
+ s!#.*!!s;
+ s!^//depot/(?:perl|.*?/perl)/!!;
+ }
} else {
@Files = @ARGV;
}
==== //depot/maint-5.8/perl/ext/B/B/Concise.pm#43 (text) ====
Index: perl/ext/B/B/Concise.pm
--- perl/ext/B/B/Concise.pm#42~33210~ 2008-02-02 11:08:57.000000000 -0800
+++ perl/ext/B/B/Concise.pm 2008-05-25 13:50:26.000000000 -0700
@@ -14,7 +14,7 @@
use Exporter (); # use #5
-our $VERSION = "0.74";
+our $VERSION = "0.75";
our @ISA = qw(Exporter);
our @EXPORT_OK = qw( set_style set_style_standard add_callback
concise_subref concise_cv concise_main
==== //depot/maint-5.8/perl/ext/Devel/DProf/DProf.pm#10 (text) ====
Index: perl/ext/Devel/DProf/DProf.pm
--- perl/ext/Devel/DProf/DProf.pm#9~30465~ 2007-03-05 08:57:07.000000000 -0800
+++ perl/ext/Devel/DProf/DProf.pm 2008-05-25 13:50:26.000000000 -0700
@@ -230,7 +230,7 @@
use XSLoader ();
-$Devel::DProf::VERSION = '20050603.00'; # this version not authorized by
+$Devel::DProf::VERSION = '20080331.00'; # this version not authorized by
# Dean Roehrich. See "Changes" file.
XSLoader::load 'Devel::DProf', $Devel::DProf::VERSION;
==== //depot/maint-5.8/perl/ext/Devel/Peek/Peek.pm#5 (text) ====
Index: perl/ext/Devel/Peek/Peek.pm
--- perl/ext/Devel/Peek/Peek.pm#4~25391~ 2005-09-12 12:50:36.000000000 -0700
+++ perl/ext/Devel/Peek/Peek.pm 2008-05-25 13:50:26.000000000 -0700
@@ -3,7 +3,7 @@
package Devel::Peek;
-$VERSION = '1.03';
+$VERSION = '1.04';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
==== //depot/maint-5.8/perl/ext/POSIX/POSIX.pm#16 (text) ====
Index: perl/ext/POSIX/POSIX.pm
--- perl/ext/POSIX/POSIX.pm#15~30696~ 2007-03-22 14:20:38.000000000 -0700
+++ perl/ext/POSIX/POSIX.pm 2008-05-25 13:50:26.000000000 -0700
@@ -4,7 +4,9 @@
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
-our $VERSION = "1.12";
+# Note that 5.8.x isn't carrying change 30590 from 5.10, so there might need to
+# be a version number dance to reflect this.
+our $VERSION = "1.14";
use AutoLoader;
==== //depot/maint-5.8/perl/ext/PerlIO/encoding/encoding.pm#8 (text) ====
Index: perl/ext/PerlIO/encoding/encoding.pm
--- perl/ext/PerlIO/encoding/encoding.pm#7~30340~ 2007-02-17 09:02:53.000000000 -0800
+++ perl/ext/PerlIO/encoding/encoding.pm 2008-05-25 13:50:26.000000000 -0700
@@ -1,7 +1,7 @@
package PerlIO::encoding;
use strict;
-our $VERSION = '0.10';
+our $VERSION = '0.11';
our $DEBUG = 0;
$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
==== //depot/maint-5.8/perl/ext/PerlIO/scalar/scalar.pm#7 (text) ====
Index: perl/ext/PerlIO/scalar/scalar.pm
--- perl/ext/PerlIO/scalar/scalar.pm#6~30340~ 2007-02-17 09:02:53.000000000 -0800
+++ perl/ext/PerlIO/scalar/scalar.pm 2008-05-25 13:50:26.000000000 -0700
@@ -1,5 +1,5 @@
package PerlIO::scalar;
-our $VERSION = '0.05';
+our $VERSION = '0.06';
use XSLoader ();
XSLoader::load 'PerlIO::scalar';
1;
==== //depot/maint-5.8/perl/ext/PerlIO/via/via.pm#6 (text) ====
Index: perl/ext/PerlIO/via/via.pm
--- perl/ext/PerlIO/via/via.pm#5~30340~ 2007-02-17 09:02:53.000000000 -0800
+++ perl/ext/PerlIO/via/via.pm 2008-05-25 13:50:26.000000000 -0700
@@ -1,5 +1,5 @@
package PerlIO::via;
-our $VERSION = '0.04';
+our $VERSION = '0.05';
use XSLoader ();
XSLoader::load 'PerlIO::via';
1;
==== //depot/maint-5.8/perl/ext/Socket/Socket.pm#8 (text) ====
Index: perl/ext/Socket/Socket.pm
--- perl/ext/Socket/Socket.pm#7~32296~ 2007-11-12 15:04:43.000000000 -0800
+++ perl/ext/Socket/Socket.pm 2008-05-25 13:50:26.000000000 -0700
@@ -1,7 +1,7 @@
package Socket;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-$VERSION = "1.80";
+$VERSION = "1.81";
=head1 NAME
==== //depot/maint-5.8/perl/lib/AutoLoader.pm#5 (text) ====
Index: perl/lib/AutoLoader.pm
--- perl/lib/AutoLoader.pm#4~33173~ 2008-02-01 11:33:57.000000000 -0800
+++ perl/lib/AutoLoader.pm 2008-05-25 13:50:26.000000000 -0700
@@ -15,7 +15,7 @@
$is_epoc = $^O eq 'epoc';
$is_vms = $^O eq 'VMS';
$is_macos = $^O eq 'MacOS';
- $VERSION = '5.64_01';
+ $VERSION = '5.66';
}
AUTOLOAD {
@@ -373,7 +373,8 @@
This package has the same copyright and license as the perl core:
Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- 2000, 2001, 2002, 2003, 2004, 2005, 2006 by Larry Wall and others
+ 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+ by Larry Wall and others
All rights reserved.
==== //depot/maint-5.8/perl/lib/AutoSplit.pm#7 (text) ====
Index: perl/lib/AutoSplit.pm
--- perl/lib/AutoSplit.pm#6~33173~ 2008-02-01 11:33:57.000000000 -0800
+++ perl/lib/AutoSplit.pm 2008-05-25 13:50:26.000000000 -0700
@@ -9,7 +9,7 @@
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
$CheckForAutoloader, $CheckModTime);
-$VERSION = "1.05";
+$VERSION = "1.05_01";
@ISA = qw(Exporter);
@EXPORT = qw(&autosplit &autosplit_lib_modules);
@EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
@@ -148,7 +148,8 @@
This package has the same copyright and license as the perl core:
Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- 2000, 2001, 2002, 2003, 2004, 2005, 2006 by Larry Wall and others
+ 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+ by Larry Wall and others
All rights reserved.
==== //depot/maint-5.8/perl/lib/ExtUtils/Command.pm#10 (text) ====
Index: perl/lib/ExtUtils/Command.pm
--- perl/lib/ExtUtils/Command.pm#9~30300~ 2007-02-14 13:45:49.000000000 -0800
+++ perl/lib/ExtUtils/Command.pm 2008-05-25 13:50:26.000000000 -0700
@@ -12,7 +12,7 @@
@ISA = qw(Exporter);
@EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod
dos2unix);
-$VERSION = '1.13';
+$VERSION = '1.14';
my $Is_VMS = $^O eq 'VMS';
==== //depot/maint-5.8/perl/lib/ExtUtils/Embed.pm#7 (text) ====
Index: perl/lib/ExtUtils/Embed.pm
--- perl/lib/ExtUtils/Embed.pm#6~33576~ 2008-03-26 09:58:17.000000000 -0700
+++ perl/lib/ExtUtils/Embed.pm 2008-05-25 13:50:26.000000000 -0700
@@ -19,7 +19,7 @@
use strict;
# This is not a dual-life module, so no need for development version numbers
-$VERSION = '1.27';
+$VERSION = '1.28';
@ISA = qw(Exporter);
@EXPORT = qw(&xsinit &ldopts
==== //depot/maint-5.8/perl/lib/Fatal.pm#5 (text) ====
Index: perl/lib/Fatal.pm
--- perl/lib/Fatal.pm#4~30949~ 2007-04-14 10:25:43.000000000 -0700
+++ perl/lib/Fatal.pm 2008-05-25 13:50:26.000000000 -0700
@@ -5,7 +5,7 @@
use strict;
our($AUTOLOAD, $Debug, $VERSION);
-$VERSION = 1.05;
+$VERSION = 1.06;
$Debug = 0 unless defined $Debug;
@@ -106,7 +106,7 @@
$proto = eval { prototype "CORE::$name" };
die "$name is neither a builtin, nor a Perl subroutine"
if $@;
- die "Cannot make a non-overridable builtin fatal"
+ die "Cannot make the non-overridable builtin $name fatal"
if not defined $proto;
$core = 1;
$call = "CORE::$name";
==== //depot/maint-5.8/perl/lib/Fatal.t#3 (xtext) ====
Index: perl/lib/Fatal.t
--- perl/lib/Fatal.t#2~30949~ 2007-04-14 10:25:43.000000000 -0700
+++ perl/lib/Fatal.t 2008-05-25 13:50:26.000000000 -0700
@@ -3,7 +3,7 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
- print "1..15\n";
+ print "1..16\n";
}
use strict;
@@ -34,3 +34,9 @@
eval { my $a = opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };
print "not " if $@ =~ /^Can't open/;
print "ok $i\n"; ++$i;
+
+eval { Fatal->import(qw(print)) };
+if ($@ !~ m{Cannot make the non-overridable builtin print fatal}) {
+ print "not ";
+}
+print "ok $i\n"; ++$i;
==== //depot/maint-5.8/perl/lib/File/Basename.pm#11 (text) ====
Index: perl/lib/File/Basename.pm
--- perl/lib/File/Basename.pm#10~33805~ 2008-05-10 08:40:07.000000000 -0700
+++ perl/lib/File/Basename.pm 2008-05-25 13:50:26.000000000 -0700
@@ -54,7 +54,7 @@
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
-$VERSION = "2.76";
+$VERSION = "2.77";
fileparse_set_fstype($^O);
==== //depot/maint-5.8/perl/lib/File/Find.pm#20 (text) ====
Index: perl/lib/File/Find.pm
--- perl/lib/File/Find.pm#19~33805~ 2008-05-10 08:40:07.000000000 -0700
+++ perl/lib/File/Find.pm 2008-05-25 13:50:26.000000000 -0700
@@ -3,7 +3,7 @@
use strict;
use warnings;
use warnings::register;
-our $VERSION = '1.12';
+our $VERSION = '1.13';
require Exporter;
require Cwd;
==== //depot/maint-5.8/perl/lib/Module/CoreList.pm#5 (text) ====
Index: perl/lib/Module/CoreList.pm
--- perl/lib/Module/CoreList.pm#4~33867~ 2008-05-19 08:14:25.000000000 -0700
+++ perl/lib/Module/CoreList.pm 2008-05-25 13:50:26.000000000 -0700
@@ -1,7 +1,7 @@
package Module::CoreList;
use strict;
use vars qw/$VERSION %released %patchlevel %version %families/;
-$VERSION = '2.14';
+$VERSION = '2.15';
=head1 NAME
@@ -2007,7 +2007,7 @@
'warnings' => undef, #lib/warnings.pm
'warnings::register' => undef, #lib/warnings/register.pm
'XSLoader' => '0.01', #lib/XSLoader.pm
- },
+ },
5.007003 => {
'AnyDBM_File' => '1.00',
@@ -4462,6 +4462,7 @@
'XSLoader' => '0.03', #lib/XSLoader.pm
'XS::Typemap' => '0.01', #lib/XS/Typemap.pm
},
+
5.008004 => {
'AnyDBM_File' => '1.00', #lib/AnyDBM_File.pm
'attributes' => '0.06', #lib/attributes.pm
@@ -5555,6 +5556,7 @@
'XSLoader' => '0.02', #lib/XSLoader.pm
'XS::Typemap' => '0.01', #lib/XS/Typemap.pm
},
+
5.009002 => {
'AnyDBM_File' => '1.00',
'Attribute::Handlers' => '0.78_01',
@@ -5595,6 +5597,7 @@
'Carp::Heavy' => '1.04',
'Class::ISA' => '0.33',
'Class::Struct' => '0.63',
+ 'Config' => undef,
'Config::Extensions' => '0.01',
'Cwd' => '3.05',
'DB' => '1.0',
@@ -5919,6 +5922,7 @@
'warnings' => '1.04',
'warnings::register' => '1.00',
},
+
5.008007 => {
'AnyDBM_File' => '1.00',
'Attribute::Handlers' => '0.78_01',
@@ -5959,6 +5963,7 @@
'Carp::Heavy' => '1.04',
'Class::ISA' => '0.33',
'Class::Struct' => '0.63',
+ 'Config' => undef,
'Cwd' => '3.05',
'DB' => '1.0',
'DBM_Filter' => '0.01',
@@ -6278,6 +6283,7 @@
'warnings' => '1.03',
'warnings::register' => '1.00',
},
+
5.009003 => {
'AnyDBM_File' => '1.00',
'Archive::Tar' => '1.26_01',
@@ -6348,6 +6354,7 @@
'Compress::Zlib::ParseParameters'=> '2.000_07',
'Compress::Zlib::UncompressPlugin::Identity'=> '2.000_05',
'Compress::Zlib::UncompressPlugin::Inflate'=> '2.000_05',
+ 'Config' => undef,
'Config::Extensions' => '0.01',
'Cwd' => '3.15',
'DB' => '1.01',
@@ -6727,6 +6734,7 @@
'warnings' => '1.05',
'warnings::register' => '1.01',
},
+
5.008008 => {
'AnyDBM_File' => '1.00',
'Attribute::Handlers' => '0.78_02',
@@ -6767,6 +6775,7 @@
'Carp::Heavy' => '1.04',
'Class::ISA' => '0.33',
'Class::Struct' => '0.63',
+ 'Config' => undef,
'Cwd' => '3.12',
'DB' => '1.01',
'DBM_Filter' => '0.01',
@@ -7094,6 +7103,7 @@
'warnings' => '1.05',
'warnings::register' => '1.01',
},
+
5.009004 => {
'AnyDBM_File' => '1.00',
'Archive::Tar' => '1.30_01',
@@ -7143,6 +7153,7 @@
'Class::Struct' => '0.63',
'Compress::Raw::Zlib' => '2.000_13',
'Compress::Zlib' => '2.000_13',
+ 'Config' => undef,
'Config::Extensions' => '0.01',
'Cwd' => '3.19',
'DB' => '1.01',
@@ -7576,6 +7587,7 @@
'warnings' => '1.05',
'warnings::register' => '1.01',
},
+
5.009005 => {
'AnyDBM_File' => '1.00',
'Archive::Extract' => '0.22_01',
@@ -8110,6 +8122,7 @@
'warnings' => '1.06',
'warnings::register' => '1.01',
},
+
5.010000 => {
'AnyDBM_File' => '1.00',
'Archive::Extract' => '0.24',
==== //depot/maint-5.8/perl/os2/OS2/REXX/REXX.pm#4 (text) ====
Index: perl/os2/OS2/REXX/REXX.pm
--- perl/os2/OS2/REXX/REXX.pm#3~26806~ 2006-01-12 11:23:34.000000000 -0800
+++ perl/os2/OS2/REXX/REXX.pm 2008-05-25 13:50:26.000000000 -0700
@@ -11,7 +11,7 @@
# Other items we are prepared to export if requested
@EXPORT_OK = qw(drop register);
-$VERSION = '1.03';
+$VERSION = '1.04';
# We cannot just put OS2::DLL in @ISA, since some scripts would use
# function interface, not method interface...
End of Patch.
-
Change 33925: Integrate:
by Nicholas Clark