26b7a08961
- use a better BuildRoot - drop a redundant mkdir in %%install - call patchlevel.h only once; rm patchlevel.bak - update modules Sys::Syslog, Module::Load::Conditional, Module::CoreList, Test::Harness, Test::Simple, CGI.pm (dropping the upstreamed patch), File::Path (that includes our perl-5.10.0-CVE-2008-2827.patch), constant, Pod::Simple, Archive::Tar, Archive::Extract, File::Fetch, File::Temp, IPC::Cmd, Time::HiRes, Module::Build, ExtUtils::CBuilder - standardize the patches for updating embedded modules - work around a bug in Module::Build tests bu setting TMPDIR to a directory inside the source tree
219 lines
6.0 KiB
Diff
219 lines
6.0 KiB
Diff
http://www.nntp.perl.org/group/perl.perl5.changes/2008/04/msg21478.html
|
|
- minus the change in Module::CoreList that we are upgrading
|
|
|
|
--- perl/Porting/Maintainers.pm#2~33194~ 2008-02-02 09:05:25.000000000 -0800
|
|
+++ perl/Porting/Maintainers.pm 2008-04-03 09:03:24.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;
|
|
}
|
|
|
|
--- perl/ext/B/B/Concise.pm#2~33126~ 2008-01-30 07:26:23.000000000 -0800
|
|
+++ perl/ext/B/B/Concise.pm 2008-04-03 09:03:24.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
|
|
|
|
--- perl/ext/Devel/DProf/DProf.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/ext/Devel/DProf/DProf.pm 2008-04-03 09:03:24.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;
|
|
|
|
--- perl/ext/Devel/Peek/Peek.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/ext/Devel/Peek/Peek.pm 2008-04-03 09:03:24.000000000 -0700
|
|
@@ -3,7 +3,7 @@
|
|
|
|
package Devel::Peek;
|
|
|
|
-$VERSION = '1.03';
|
|
+$VERSION = '1.04';
|
|
$XS_VERSION = $VERSION;
|
|
$VERSION = eval $VERSION;
|
|
|
|
|
|
--- perl/ext/POSIX/POSIX.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/ext/POSIX/POSIX.pm 2008-04-03 09:03:24.000000000 -0700
|
|
@@ -4,7 +4,7 @@
|
|
|
|
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
|
|
|
|
-our $VERSION = "1.13";
|
|
+our $VERSION = "1.14";
|
|
|
|
use AutoLoader;
|
|
|
|
|
|
--- perl/ext/PerlIO/encoding/encoding.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/ext/PerlIO/encoding/encoding.pm 2008-04-03 09:03:24.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";
|
|
|
|
|
|
--- perl/ext/PerlIO/scalar/scalar.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/ext/PerlIO/scalar/scalar.pm 2008-04-03 09:03:24.000000000 -0700
|
|
@@ -1,5 +1,5 @@
|
|
package PerlIO::scalar;
|
|
-our $VERSION = '0.05';
|
|
+our $VERSION = '0.06';
|
|
use XSLoader ();
|
|
XSLoader::load 'PerlIO::scalar';
|
|
1;
|
|
|
|
--- perl/ext/PerlIO/via/via.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/ext/PerlIO/via/via.pm 2008-04-03 09:03:24.000000000 -0700
|
|
@@ -1,5 +1,5 @@
|
|
package PerlIO::via;
|
|
-our $VERSION = '0.04';
|
|
+our $VERSION = '0.05';
|
|
use XSLoader ();
|
|
XSLoader::load 'PerlIO::via';
|
|
1;
|
|
|
|
--- perl/ext/Socket/Socket.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/ext/Socket/Socket.pm 2008-04-03 09:03:24.000000000 -0700
|
|
@@ -1,7 +1,7 @@
|
|
package Socket;
|
|
|
|
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
|
|
-$VERSION = "1.80";
|
|
+$VERSION = "1.81";
|
|
|
|
=head1 NAME
|
|
|
|
|
|
--- perl/lib/ExtUtils/Embed.pm#2~33574~ 2008-03-26 09:37:45.000000000 -0700
|
|
+++ perl/lib/ExtUtils/Embed.pm 2008-04-03 09:03:24.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
|
|
|
|
--- perl/lib/Fatal.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/lib/Fatal.pm 2008-04-03 09:03:24.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";
|
|
|
|
--- perl/lib/Fatal.t#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/lib/Fatal.t 2008-04-03 09:03:24.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;
|
|
|
|
--- perl/lib/File/Basename.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/lib/File/Basename.pm 2008-04-03 09:03:24.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);
|
|
|
|
|
|
--- perl/lib/File/Find.pm#2~33162~ 2008-01-31 14:54:31.000000000 -0800
|
|
+++ perl/lib/File/Find.pm 2008-04-03 09:03:24.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;
|
|
|
|
|
|
--- perl/os2/OS2/REXX/REXX.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
|
+++ perl/os2/OS2/REXX/REXX.pm 2008-04-03 09:03:24.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...
|
|
|