| 1 |
http://www.nntp.perl.org/group/perl.perl5.changes/2008/04/msg21478.html
|
| 2 |
- minus the change in Module::CoreList that we are upgrading
|
| 3 |
|
| 4 |
--- perl/Porting/Maintainers.pm#2~33194~ 2008-02-02 09:05:25.000000000 -0800
|
| 5 |
+++ perl/Porting/Maintainers.pm 2008-04-03 09:03:24.000000000 -0700
|
| 6 |
@@ -14,11 +14,12 @@
|
| 7 |
require "Maintainers.pl";
|
| 8 |
use vars qw(%Modules %Maintainers);
|
| 9 |
|
| 10 |
-use vars qw(@ISA @EXPORT_OK);
|
| 11 |
+use vars qw(@ISA @EXPORT_OK $VERSION);
|
| 12 |
@ISA = qw(Exporter);
|
| 13 |
@EXPORT_OK = qw(%Modules %Maintainers
|
| 14 |
get_module_files get_module_pat
|
| 15 |
show_results process_options);
|
| 16 |
+$VERSION = 0.02;
|
| 17 |
require Exporter;
|
| 18 |
|
| 19 |
use File::Find;
|
| 20 |
@@ -107,9 +108,12 @@
|
| 21 |
my @Files;
|
| 22 |
|
| 23 |
if ($Opened) {
|
| 24 |
- my @raw = `p4 opened`;
|
| 25 |
+ @Files = `p4 opened`;
|
| 26 |
die if $?;
|
| 27 |
- @Files = map {s!#.*!!s; s!^//depot/.*?/perl/!!; $_} @raw;
|
| 28 |
+ foreach (@Files) {
|
| 29 |
+ s!#.*!!s;
|
| 30 |
+ s!^//depot/(?:perl|.*?/perl)/!!;
|
| 31 |
+ }
|
| 32 |
} else {
|
| 33 |
@Files = @ARGV;
|
| 34 |
}
|
| 35 |
|
| 36 |
--- perl/ext/B/B/Concise.pm#2~33126~ 2008-01-30 07:26:23.000000000 -0800
|
| 37 |
+++ perl/ext/B/B/Concise.pm 2008-04-03 09:03:24.000000000 -0700
|
| 38 |
@@ -14,7 +14,7 @@
|
| 39 |
|
| 40 |
use Exporter (); # use #5
|
| 41 |
|
| 42 |
-our $VERSION = "0.74";
|
| 43 |
+our $VERSION = "0.75";
|
| 44 |
our @ISA = qw(Exporter);
|
| 45 |
our @EXPORT_OK = qw( set_style set_style_standard add_callback
|
| 46 |
concise_subref concise_cv concise_main
|
| 47 |
|
| 48 |
--- perl/ext/Devel/DProf/DProf.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 49 |
+++ perl/ext/Devel/DProf/DProf.pm 2008-04-03 09:03:24.000000000 -0700
|
| 50 |
@@ -230,7 +230,7 @@
|
| 51 |
|
| 52 |
use XSLoader ();
|
| 53 |
|
| 54 |
-$Devel::DProf::VERSION = '20050603.00'; # this version not authorized by
|
| 55 |
+$Devel::DProf::VERSION = '20080331.00'; # this version not authorized by
|
| 56 |
# Dean Roehrich. See "Changes" file.
|
| 57 |
|
| 58 |
XSLoader::load 'Devel::DProf', $Devel::DProf::VERSION;
|
| 59 |
|
| 60 |
--- perl/ext/Devel/Peek/Peek.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 61 |
+++ perl/ext/Devel/Peek/Peek.pm 2008-04-03 09:03:24.000000000 -0700
|
| 62 |
@@ -3,7 +3,7 @@
|
| 63 |
|
| 64 |
package Devel::Peek;
|
| 65 |
|
| 66 |
-$VERSION = '1.03';
|
| 67 |
+$VERSION = '1.04';
|
| 68 |
$XS_VERSION = $VERSION;
|
| 69 |
$VERSION = eval $VERSION;
|
| 70 |
|
| 71 |
|
| 72 |
--- perl/ext/POSIX/POSIX.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 73 |
+++ perl/ext/POSIX/POSIX.pm 2008-04-03 09:03:24.000000000 -0700
|
| 74 |
@@ -4,7 +4,7 @@
|
| 75 |
|
| 76 |
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
|
| 77 |
|
| 78 |
-our $VERSION = "1.13";
|
| 79 |
+our $VERSION = "1.14";
|
| 80 |
|
| 81 |
use AutoLoader;
|
| 82 |
|
| 83 |
|
| 84 |
--- perl/ext/PerlIO/encoding/encoding.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 85 |
+++ perl/ext/PerlIO/encoding/encoding.pm 2008-04-03 09:03:24.000000000 -0700
|
| 86 |
@@ -1,7 +1,7 @@
|
| 87 |
package PerlIO::encoding;
|
| 88 |
|
| 89 |
use strict;
|
| 90 |
-our $VERSION = '0.10';
|
| 91 |
+our $VERSION = '0.11';
|
| 92 |
our $DEBUG = 0;
|
| 93 |
$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
|
| 94 |
|
| 95 |
|
| 96 |
--- perl/ext/PerlIO/scalar/scalar.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 97 |
+++ perl/ext/PerlIO/scalar/scalar.pm 2008-04-03 09:03:24.000000000 -0700
|
| 98 |
@@ -1,5 +1,5 @@
|
| 99 |
package PerlIO::scalar;
|
| 100 |
-our $VERSION = '0.05';
|
| 101 |
+our $VERSION = '0.06';
|
| 102 |
use XSLoader ();
|
| 103 |
XSLoader::load 'PerlIO::scalar';
|
| 104 |
1;
|
| 105 |
|
| 106 |
--- perl/ext/PerlIO/via/via.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 107 |
+++ perl/ext/PerlIO/via/via.pm 2008-04-03 09:03:24.000000000 -0700
|
| 108 |
@@ -1,5 +1,5 @@
|
| 109 |
package PerlIO::via;
|
| 110 |
-our $VERSION = '0.04';
|
| 111 |
+our $VERSION = '0.05';
|
| 112 |
use XSLoader ();
|
| 113 |
XSLoader::load 'PerlIO::via';
|
| 114 |
1;
|
| 115 |
|
| 116 |
--- perl/ext/Socket/Socket.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 117 |
+++ perl/ext/Socket/Socket.pm 2008-04-03 09:03:24.000000000 -0700
|
| 118 |
@@ -1,7 +1,7 @@
|
| 119 |
package Socket;
|
| 120 |
|
| 121 |
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
|
| 122 |
-$VERSION = "1.80";
|
| 123 |
+$VERSION = "1.81";
|
| 124 |
|
| 125 |
=head1 NAME
|
| 126 |
|
| 127 |
|
| 128 |
--- perl/lib/ExtUtils/Embed.pm#2~33574~ 2008-03-26 09:37:45.000000000 -0700
|
| 129 |
+++ perl/lib/ExtUtils/Embed.pm 2008-04-03 09:03:24.000000000 -0700
|
| 130 |
@@ -19,7 +19,7 @@
|
| 131 |
use strict;
|
| 132 |
|
| 133 |
# This is not a dual-life module, so no need for development version numbers
|
| 134 |
-$VERSION = '1.27';
|
| 135 |
+$VERSION = '1.28';
|
| 136 |
|
| 137 |
@ISA = qw(Exporter);
|
| 138 |
@EXPORT = qw(&xsinit &ldopts
|
| 139 |
|
| 140 |
--- perl/lib/Fatal.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 141 |
+++ perl/lib/Fatal.pm 2008-04-03 09:03:24.000000000 -0700
|
| 142 |
@@ -5,7 +5,7 @@
|
| 143 |
use strict;
|
| 144 |
our($AUTOLOAD, $Debug, $VERSION);
|
| 145 |
|
| 146 |
-$VERSION = 1.05;
|
| 147 |
+$VERSION = 1.06;
|
| 148 |
|
| 149 |
$Debug = 0 unless defined $Debug;
|
| 150 |
|
| 151 |
@@ -106,7 +106,7 @@
|
| 152 |
$proto = eval { prototype "CORE::$name" };
|
| 153 |
die "$name is neither a builtin, nor a Perl subroutine"
|
| 154 |
if $@;
|
| 155 |
- die "Cannot make a non-overridable builtin fatal"
|
| 156 |
+ die "Cannot make the non-overridable builtin $name fatal"
|
| 157 |
if not defined $proto;
|
| 158 |
$core = 1;
|
| 159 |
$call = "CORE::$name";
|
| 160 |
|
| 161 |
--- perl/lib/Fatal.t#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 162 |
+++ perl/lib/Fatal.t 2008-04-03 09:03:24.000000000 -0700
|
| 163 |
@@ -3,7 +3,7 @@
|
| 164 |
BEGIN {
|
| 165 |
chdir 't' if -d 't';
|
| 166 |
@INC = '../lib';
|
| 167 |
- print "1..15\n";
|
| 168 |
+ print "1..16\n";
|
| 169 |
}
|
| 170 |
|
| 171 |
use strict;
|
| 172 |
@@ -34,3 +34,9 @@
|
| 173 |
eval { my $a = opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };
|
| 174 |
print "not " if $@ =~ /^Can't open/;
|
| 175 |
print "ok $i\n"; ++$i;
|
| 176 |
+
|
| 177 |
+eval { Fatal->import(qw(print)) };
|
| 178 |
+if ($@ !~ m{Cannot make the non-overridable builtin print fatal}) {
|
| 179 |
+ print "not ";
|
| 180 |
+}
|
| 181 |
+print "ok $i\n"; ++$i;
|
| 182 |
|
| 183 |
--- perl/lib/File/Basename.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 184 |
+++ perl/lib/File/Basename.pm 2008-04-03 09:03:24.000000000 -0700
|
| 185 |
@@ -54,7 +54,7 @@
|
| 186 |
require Exporter;
|
| 187 |
@ISA = qw(Exporter);
|
| 188 |
@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
|
| 189 |
-$VERSION = "2.76";
|
| 190 |
+$VERSION = "2.77";
|
| 191 |
|
| 192 |
fileparse_set_fstype($^O);
|
| 193 |
|
| 194 |
|
| 195 |
--- perl/lib/File/Find.pm#2~33162~ 2008-01-31 14:54:31.000000000 -0800
|
| 196 |
+++ perl/lib/File/Find.pm 2008-04-03 09:03:24.000000000 -0700
|
| 197 |
@@ -3,7 +3,7 @@
|
| 198 |
use strict;
|
| 199 |
use warnings;
|
| 200 |
use warnings::register;
|
| 201 |
-our $VERSION = '1.12';
|
| 202 |
+our $VERSION = '1.13';
|
| 203 |
require Exporter;
|
| 204 |
require Cwd;
|
| 205 |
|
| 206 |
|
| 207 |
--- perl/os2/OS2/REXX/REXX.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
|
| 208 |
+++ perl/os2/OS2/REXX/REXX.pm 2008-04-03 09:03:24.000000000 -0700
|
| 209 |
@@ -11,7 +11,7 @@
|
| 210 |
# Other items we are prepared to export if requested
|
| 211 |
@EXPORT_OK = qw(drop register);
|
| 212 |
|
| 213 |
-$VERSION = '1.03';
|
| 214 |
+$VERSION = '1.04';
|
| 215 |
|
| 216 |
# We cannot just put OS2::DLL in @ISA, since some scripts would use
|
| 217 |
# function interface, not method interface...
|
| 218 |
|