Change 20693 by [EMAIL PROTECTED] on 2003/08/14 05:35:13
Integrate:
[ 20685]
Subject: Re: script wanted
From: Enache Adrian <[EMAIL PROTECTED]>
Date: Wed, 13 Aug 2003 22:31:18 +0300
Message-ID: <[EMAIL PROTECTED]>
[ 20686]
Subject: Re: script wanted
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Wed, 13 Aug 2003 20:46:09 +0100
Message-ID: <[EMAIL PROTECTED]>
[ 20687]
Alpha version numbers noticed by Schwern.
(These hacks are no more needed since the PAUSE indexer no
more indexes the insides of Perl distributions, says Andreas.)
[ 20688]
A swath of VERSION patches from Nick Clark.
[ 20691]
Add a known exception.
[ 20692]
One more VERSION bump.
Affected files ...
... //depot/maint-5.8/perl/Porting/cmpVERSION.pl#2 integrate
... //depot/maint-5.8/perl/ext/B/B.pm#10 integrate
... //depot/maint-5.8/perl/ext/B/B/Bblock.pm#3 integrate
... //depot/maint-5.8/perl/ext/B/B/C.pm#4 integrate
... //depot/maint-5.8/perl/ext/B/B/Debug.pm#7 integrate
... //depot/maint-5.8/perl/ext/B/B/Lint.pm#3 integrate
... //depot/maint-5.8/perl/ext/Devel/DProf/DProf.pm#5 integrate
... //depot/maint-5.8/perl/ext/Devel/Peek/Peek.pm#2 integrate
... //depot/maint-5.8/perl/ext/Fcntl/Fcntl.pm#3 integrate
... //depot/maint-5.8/perl/ext/File/Glob/Glob.pm#3 integrate
... //depot/maint-5.8/perl/ext/IO/IO.pm#4 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Dir.pm#2 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/File.pm#4 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Handle.pm#3 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Seekable.pm#2 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Select.pm#3 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Socket.pm#4 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Socket/INET.pm#3 integrate
... //depot/maint-5.8/perl/ext/IO/lib/IO/Socket/UNIX.pm#2 integrate
... //depot/maint-5.8/perl/ext/IPC/SysV/Msg.pm#3 integrate
... //depot/maint-5.8/perl/ext/IPC/SysV/Semaphore.pm#3 integrate
... //depot/maint-5.8/perl/ext/IPC/SysV/SysV.pm#2 integrate
... //depot/maint-5.8/perl/ext/POSIX/POSIX.pm#7 integrate
... //depot/maint-5.8/perl/ext/Sys/Hostname/Hostname.pm#5 integrate
... //depot/maint-5.8/perl/ext/Sys/Syslog/Syslog.pm#5 integrate
... //depot/maint-5.8/perl/ext/re/re.pm#3 integrate
... //depot/maint-5.8/perl/ext/threads/shared/shared.pm#5 integrate
... //depot/maint-5.8/perl/ext/threads/threads.pm#4 integrate
... //depot/maint-5.8/perl/lib/AutoSplit.pm#4 integrate
... //depot/maint-5.8/perl/lib/CPAN/Nox.pm#3 integrate
... //depot/maint-5.8/perl/lib/Cwd.pm#4 integrate
... //depot/maint-5.8/perl/lib/English.pm#3 integrate
... //depot/maint-5.8/perl/lib/File/Basename.pm#5 integrate
... //depot/maint-5.8/perl/lib/File/Copy.pm#7 integrate
... //depot/maint-5.8/perl/lib/File/Path.pm#4 integrate
... //depot/maint-5.8/perl/lib/Hash/Util.pm#4 integrate
... //depot/maint-5.8/perl/lib/Net/hostent.pm#3 integrate
... //depot/maint-5.8/perl/lib/Net/servent.pm#3 integrate
... //depot/maint-5.8/perl/lib/SelfLoader.pm#3 integrate
... //depot/maint-5.8/perl/lib/Text/Abbrev.pm#3 integrate
... //depot/maint-5.8/perl/lib/Thread/Semaphore.pm#3 integrate
... //depot/maint-5.8/perl/lib/Tie/Array.pm#3 integrate
... //depot/maint-5.8/perl/lib/Tie/RefHash.pm#4 integrate
... //depot/maint-5.8/perl/lib/UNIVERSAL.pm#3 integrate
... //depot/maint-5.8/perl/lib/Unicode/UCD.pm#6 integrate
... //depot/maint-5.8/perl/lib/attributes.pm#3 integrate
... //depot/maint-5.8/perl/lib/base.pm#3 integrate
... //depot/maint-5.8/perl/lib/diagnostics.pm#4 integrate
... //depot/maint-5.8/perl/lib/fields.pm#3 integrate
... //depot/maint-5.8/perl/lib/filetest.pm#5 integrate
... //depot/maint-5.8/perl/lib/open.pm#7 integrate
... //depot/maint-5.8/perl/lib/overload.pm#4 integrate
... //depot/maint-5.8/perl/lib/utf8.pm#3 integrate
... //depot/maint-5.8/perl/lib/vmsish.pm#3 integrate
... //depot/maint-5.8/perl/os2/OS2/Process/Process.pm#3 integrate
... //depot/maint-5.8/perl/os2/OS2/REXX/DLL/DLL.pm#4 integrate
... //depot/maint-5.8/perl/t/TestInit.pm#4 integrate
... //depot/maint-5.8/perl/t/lib/MakeMaker/Test/Utils.pm#3 integrate
... //depot/maint-5.8/perl/t/lib/Math/BigInt/BareCalc.pm#3 integrate
... //depot/maint-5.8/perl/vms/ext/Filespec.pm#3 integrate
... //depot/maint-5.8/perl/warnings.pl#3 integrate
Differences ...
==== //depot/maint-5.8/perl/Porting/cmpVERSION.pl#2 (text) ====
Index: perl/Porting/cmpVERSION.pl
--- perl/Porting/cmpVERSION.pl#1~20679~ Wed Aug 13 06:55:52 2003
+++ perl/Porting/cmpVERSION.pl Wed Aug 13 22:35:13 2003
@@ -22,9 +22,16 @@
my $dir2 = rel2abs($ARGV[1]);
chdir $ARGV[0] or die "$0: chdir '$ARGV[0]' failed: $!\n";
+# Files to skip from the check for one reason or another,
+# usually because they pull in their version from some other file.
+my %skip;
[EMAIL PROTECTED]'./lib/Exporter/Heavy.pm'} = ();
+
my @wanted;
find(
sub { /\.pm$/ &&
+ ! exists $skip{$File::Find::name}
+ &&
do { my $file2 =
catfile(catdir($dir2, $File::Find::dir), $_);
return if compare($_, $file2) == 0;
==== //depot/maint-5.8/perl/ext/B/B.pm#10 (text) ====
Index: perl/ext/B/B.pm
--- perl/ext/B/B.pm#9~20254~ Mon Jul 28 02:48:25 2003
+++ perl/ext/B/B.pm Wed Aug 13 22:35:13 2003
@@ -7,7 +7,7 @@
#
package B;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
use XSLoader ();
require Exporter;
==== //depot/maint-5.8/perl/ext/B/B/Bblock.pm#3 (text) ====
Index: perl/ext/B/B/Bblock.pm
--- perl/ext/B/B/Bblock.pm#2~18744~ Tue Feb 18 06:46:18 2003
+++ perl/ext/B/B/Bblock.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package B::Bblock;
-our $VERSION = '1.00';
+our $VERSION = '1.02';
use Exporter ();
@ISA = "Exporter";
==== //depot/maint-5.8/perl/ext/B/B/C.pm#4 (text) ====
Index: perl/ext/B/B/C.pm
--- perl/ext/B/B/C.pm#3~18791~ Fri Feb 28 12:05:43 2003
+++ perl/ext/B/B/C.pm Wed Aug 13 22:35:13 2003
@@ -7,7 +7,7 @@
#
package B::C::Section;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
use B ();
use base B::Section;
==== //depot/maint-5.8/perl/ext/B/B/Debug.pm#7 (text) ====
Index: perl/ext/B/B/Debug.pm
--- perl/ext/B/B/Debug.pm#6~19951~ Thu Jul 3 01:47:35 2003
+++ perl/ext/B/B/Debug.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package B::Debug;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
use strict;
use B qw(peekop class walkoptree walkoptree_exec
==== //depot/maint-5.8/perl/ext/B/B/Lint.pm#3 (text) ====
Index: perl/ext/B/B/Lint.pm
--- perl/ext/B/B/Lint.pm#2~18173~ Fri Nov 22 18:02:33 2002
+++ perl/ext/B/B/Lint.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package B::Lint;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
=head1 NAME
==== //depot/maint-5.8/perl/ext/Devel/DProf/DProf.pm#5 (text) ====
Index: perl/ext/Devel/DProf/DProf.pm
--- perl/ext/Devel/DProf/DProf.pm#4~20442~ Fri Aug 1 22:43:01 2003
+++ perl/ext/Devel/DProf/DProf.pm Wed Aug 13 22:35:13 2003
@@ -205,9 +205,8 @@
use XSLoader ();
-# Underscore to allow older Perls to access older version from CPAN
-$Devel::DProf::VERSION = '20030801.00_00'; # this version not authorized by
- # Dean Roehrich. See "Changes" file.
+$Devel::DProf::VERSION = '20030813.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#2 (text) ====
Index: perl/ext/Devel/Peek/Peek.pm
--- perl/ext/Devel/Peek/Peek.pm#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/Devel/Peek/Peek.pm Wed Aug 13 22:35:13 2003
@@ -3,8 +3,7 @@
package Devel::Peek;
-# Underscore to allow older Perls to access older version from CPAN
-$VERSION = '1.00_03';
+$VERSION = '1.01';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
==== //depot/maint-5.8/perl/ext/Fcntl/Fcntl.pm#3 (text) ====
Index: perl/ext/Fcntl/Fcntl.pm
--- perl/ext/Fcntl/Fcntl.pm#2~19803~ Mon Jun 16 22:18:41 2003
+++ perl/ext/Fcntl/Fcntl.pm Wed Aug 13 22:35:13 2003
@@ -60,7 +60,7 @@
require Exporter;
use XSLoader ();
@ISA = qw(Exporter);
-$VERSION = "1.04";
+$VERSION = "1.05";
# Items to export into callers namespace by default
# (move infrequently used names to @EXPORT_OK below)
@EXPORT =
==== //depot/maint-5.8/perl/ext/File/Glob/Glob.pm#3 (text) ====
Index: perl/ext/File/Glob/Glob.pm
--- perl/ext/File/Glob/Glob.pm#2~20446~ Fri Aug 1 23:26:56 2003
+++ perl/ext/File/Glob/Glob.pm Wed Aug 13 22:35:13 2003
@@ -56,7 +56,7 @@
) ],
);
-$VERSION = '1.01';
+$VERSION = '1.02';
sub import {
require Exporter;
==== //depot/maint-5.8/perl/ext/IO/IO.pm#4 (text) ====
Index: perl/ext/IO/IO.pm
--- perl/ext/IO/IO.pm#3~20212~ Thu Jul 24 07:32:57 2003
+++ perl/ext/IO/IO.pm Wed Aug 13 22:35:13 2003
@@ -7,7 +7,7 @@
use strict;
use warnings;
-our $VERSION = "1.20";
+our $VERSION = "1.21";
XSLoader::load 'IO', $VERSION;
sub import {
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Dir.pm#2 (text) ====
Index: perl/ext/IO/lib/IO/Dir.pm
--- perl/ext/IO/lib/IO/Dir.pm#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/IO/lib/IO/Dir.pm Wed Aug 13 22:35:13 2003
@@ -19,7 +19,7 @@
use File::Spec;
@ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.03_00";
+$VERSION = "1.04";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(DIR_UNLINK);
==== //depot/maint-5.8/perl/ext/IO/lib/IO/File.pm#4 (text) ====
Index: perl/ext/IO/lib/IO/File.pm
--- perl/ext/IO/lib/IO/File.pm#3~19636~ Thu May 29 07:19:35 2003
+++ perl/ext/IO/lib/IO/File.pm Wed Aug 13 22:35:13 2003
@@ -121,7 +121,7 @@
@ISA = qw(IO::Handle IO::Seekable Exporter);
-$VERSION = "1.09";
+$VERSION = "1.10";
@EXPORT = @IO::Seekable::EXPORT;
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Handle.pm#3 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm#2~19636~ Thu May 29 07:19:35 2003
+++ perl/ext/IO/lib/IO/Handle.pm Wed Aug 13 22:35:13 2003
@@ -1,4 +1,3 @@
-
package IO::Handle;
=head1 NAME
@@ -263,7 +262,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.21_00";
+$VERSION = "1.23";
$VERSION = eval $VERSION;
@EXPORT_OK = qw(
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Seekable.pm#2 (text) ====
Index: perl/ext/IO/lib/IO/Seekable.pm
--- perl/ext/IO/lib/IO/Seekable.pm#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/IO/lib/IO/Seekable.pm Wed Aug 13 22:35:13 2003
@@ -107,7 +107,7 @@
@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
@ISA = qw(Exporter);
-$VERSION = "1.08_00";
+$VERSION = "1.09";
$VERSION = eval $VERSION;
sub seek {
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Select.pm#3 (text) ====
Index: perl/ext/IO/lib/IO/Select.pm
--- perl/ext/IO/lib/IO/Select.pm#2~18866~ Sun Mar 9 05:59:01 2003
+++ perl/ext/IO/lib/IO/Select.pm Wed Aug 13 22:35:13 2003
@@ -11,7 +11,7 @@
use vars qw($VERSION @ISA);
require Exporter;
-$VERSION = "1.15";
+$VERSION = "1.16";
@ISA = qw(Exporter); # This is only so we can do version checking
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Socket.pm#4 (text) ====
Index: perl/ext/IO/lib/IO/Socket.pm
--- perl/ext/IO/lib/IO/Socket.pm#3~20212~ Thu Jul 24 07:32:57 2003
+++ perl/ext/IO/lib/IO/Socket.pm Wed Aug 13 22:35:13 2003
@@ -23,7 +23,7 @@
@ISA = qw(IO::Handle);
-$VERSION = "1.27";
+$VERSION = "1.28";
@EXPORT_OK = qw(sockatmark);
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Socket/INET.pm#3 (text) ====
Index: perl/ext/IO/lib/IO/Socket/INET.pm
--- perl/ext/IO/lib/IO/Socket/INET.pm#2~18783~ Wed Feb 26 11:39:59 2003
+++ perl/ext/IO/lib/IO/Socket/INET.pm Wed Aug 13 22:35:13 2003
@@ -15,7 +15,7 @@
use Errno;
@ISA = qw(IO::Socket);
-$VERSION = "1.26";
+$VERSION = "1.27";
my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
==== //depot/maint-5.8/perl/ext/IO/lib/IO/Socket/UNIX.pm#2 (text) ====
Index: perl/ext/IO/lib/IO/Socket/UNIX.pm
--- perl/ext/IO/lib/IO/Socket/UNIX.pm#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/IO/lib/IO/Socket/UNIX.pm Wed Aug 13 22:35:13 2003
@@ -13,7 +13,7 @@
use Carp;
@ISA = qw(IO::Socket);
-$VERSION = "1.20_00";
+$VERSION = "1.21";
$VERSION = eval $VERSION;
IO::Socket::UNIX->register_domain( AF_UNIX );
==== //depot/maint-5.8/perl/ext/IPC/SysV/Msg.pm#3 (text) ====
Index: perl/ext/IPC/SysV/Msg.pm
--- perl/ext/IPC/SysV/Msg.pm#2~18814~ Sun Mar 2 21:37:43 2003
+++ perl/ext/IPC/SysV/Msg.pm Wed Aug 13 22:35:13 2003
@@ -11,7 +11,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.00_00";
+$VERSION = "1.02";
$VERSION = eval $VERSION;
{
==== //depot/maint-5.8/perl/ext/IPC/SysV/Semaphore.pm#3 (text) ====
Index: perl/ext/IPC/SysV/Semaphore.pm
--- perl/ext/IPC/SysV/Semaphore.pm#2~18080~ Sun Nov 3 21:23:04 2002
+++ perl/ext/IPC/SysV/Semaphore.pm Wed Aug 13 22:35:13 2003
@@ -12,7 +12,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.00_00";
+$VERSION = "1.02";
$VERSION = eval $VERSION;
{
==== //depot/maint-5.8/perl/ext/IPC/SysV/SysV.pm#2 (text) ====
Index: perl/ext/IPC/SysV/SysV.pm
--- perl/ext/IPC/SysV/SysV.pm#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/ext/IPC/SysV/SysV.pm Wed Aug 13 22:35:13 2003
@@ -14,7 +14,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.03_00";
+$VERSION = "1.04";
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
==== //depot/maint-5.8/perl/ext/POSIX/POSIX.pm#7 (text) ====
Index: perl/ext/POSIX/POSIX.pm
--- perl/ext/POSIX/POSIX.pm#6~20598~ Sun Aug 10 11:29:12 2003
+++ perl/ext/POSIX/POSIX.pm Wed Aug 13 22:35:13 2003
@@ -2,7 +2,7 @@
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
-our $VERSION = "1.05" ;
+our $VERSION = "1.06" ;
use AutoLoader;
==== //depot/maint-5.8/perl/ext/Sys/Hostname/Hostname.pm#5 (text) ====
Index: perl/ext/Sys/Hostname/Hostname.pm
--- perl/ext/Sys/Hostname/Hostname.pm#4~19636~ Thu May 29 07:19:35 2003
+++ perl/ext/Sys/Hostname/Hostname.pm Wed Aug 13 22:35:13 2003
@@ -15,7 +15,7 @@
our $host;
BEGIN {
- $VERSION = '1.1';
+ $VERSION = '1.11';
{
local $SIG{__DIE__};
eval {
==== //depot/maint-5.8/perl/ext/Sys/Syslog/Syslog.pm#5 (text) ====
Index: perl/ext/Sys/Syslog/Syslog.pm
--- perl/ext/Sys/Syslog/Syslog.pm#4~20534~ Wed Aug 6 11:46:41 2003
+++ perl/ext/Sys/Syslog/Syslog.pm Wed Aug 13 22:35:13 2003
@@ -7,7 +7,7 @@
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(openlog closelog setlogmask syslog);
@EXPORT_OK = qw(setlogsock);
-$VERSION = '0.03';
+$VERSION = '0.04';
# it would be nice to try stream/unix first, since that will be
# most efficient. However streams are dodgy - see _syslog_send_stream
==== //depot/maint-5.8/perl/ext/re/re.pm#3 (text) ====
Index: perl/ext/re/re.pm
--- perl/ext/re/re.pm#2~18227~ Mon Dec 2 05:23:48 2002
+++ perl/ext/re/re.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package re;
-our $VERSION = 0.03;
+our $VERSION = 0.04;
=head1 NAME
==== //depot/maint-5.8/perl/ext/threads/shared/shared.pm#5 (text) ====
Index: perl/ext/threads/shared/shared.pm
--- perl/ext/threads/shared/shared.pm#4~19722~ Mon Jun 9 10:52:25 2003
+++ perl/ext/threads/shared/shared.pm Wed Aug 13 22:35:13 2003
@@ -7,7 +7,7 @@
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(share cond_wait cond_broadcast cond_signal);
- our $VERSION = '0.90';
+ our $VERSION = '0.91';
if ($threads::threads) {
*cond_wait = \&cond_wait_enabled;
==== //depot/maint-5.8/perl/ext/threads/threads.pm#4 (xtext) ====
Index: perl/ext/threads/threads.pm
--- perl/ext/threads/threads.pm#3~19823~ Thu Jun 19 07:51:22 2003
+++ perl/ext/threads/threads.pm Wed Aug 13 22:35:13 2003
@@ -52,7 +52,7 @@
our @EXPORT = qw(
async
);
-our $VERSION = '0.99';
+our $VERSION = '1.00';
sub equal {
==== //depot/maint-5.8/perl/lib/AutoSplit.pm#4 (text) ====
Index: perl/lib/AutoSplit.pm
--- perl/lib/AutoSplit.pm#3~20690~ Wed Aug 13 22:18:30 2003
+++ perl/lib/AutoSplit.pm Wed Aug 13 22:35:13 2003
@@ -11,7 +11,7 @@
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
$CheckForAutoloader, $CheckModTime);
-$VERSION = "1.0307";
+$VERSION = "1.04";
@ISA = qw(Exporter);
@EXPORT = qw(&autosplit &autosplit_lib_modules);
@EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
==== //depot/maint-5.8/perl/lib/CPAN/Nox.pm#3 (text) ====
Index: perl/lib/CPAN/Nox.pm
--- perl/lib/CPAN/Nox.pm#2~19576~ Tue May 20 13:05:45 2003
+++ perl/lib/CPAN/Nox.pm Wed Aug 13 22:35:13 2003
@@ -9,7 +9,7 @@
use base 'Exporter';
use CPAN;
-$VERSION = "1.02";
+$VERSION = "1.03";
$CPAN::META->has_inst('Digest::MD5','no');
$CPAN::META->has_inst('LWP','no');
$CPAN::META->has_inst('Compress::Zlib','no');
==== //depot/maint-5.8/perl/lib/Cwd.pm#4 (text) ====
Index: perl/lib/Cwd.pm
--- perl/lib/Cwd.pm#3~20649~ Tue Aug 12 05:14:31 2003
+++ perl/lib/Cwd.pm Wed Aug 13 22:35:13 2003
@@ -150,7 +150,7 @@
use Carp;
-our $VERSION = '2.06';
+our $VERSION = '2.07';
use base qw/ Exporter /;
our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
==== //depot/maint-5.8/perl/lib/English.pm#3 (text) ====
Index: perl/lib/English.pm
--- perl/lib/English.pm#2~18271~ Sun Dec 8 18:41:11 2002
+++ perl/lib/English.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package English;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
require Exporter;
@ISA = (Exporter);
==== //depot/maint-5.8/perl/lib/File/Basename.pm#5 (text) ====
Index: perl/lib/File/Basename.pm
--- perl/lib/File/Basename.pm#4~18814~ Sun Mar 2 21:37:43 2003
+++ perl/lib/File/Basename.pm Wed Aug 13 22:35:13 2003
@@ -142,7 +142,7 @@
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
-$VERSION = "2.71";
+$VERSION = "2.72";
# fileparse_set_fstype() - specify OS-based rules used in future
==== //depot/maint-5.8/perl/lib/File/Copy.pm#7 (text) ====
Index: perl/lib/File/Copy.pm
--- perl/lib/File/Copy.pm#6~19803~ Mon Jun 16 22:18:41 2003
+++ perl/lib/File/Copy.pm Wed Aug 13 22:35:13 2003
@@ -24,7 +24,7 @@
# package has not yet been updated to work with Perl 5.004, and so it
# would be a Bad Thing for the CPAN module to grab it and replace this
# module. Therefore, we set this module's version higher than 2.0.
-$VERSION = '2.05';
+$VERSION = '2.06';
require Exporter;
@ISA = qw(Exporter);
==== //depot/maint-5.8/perl/lib/File/Path.pm#4 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#3~19515~ Tue May 13 10:51:05 2003
+++ perl/lib/File/Path.pm Wed Aug 13 22:35:13 2003
@@ -119,7 +119,7 @@
use strict;
use warnings;
-our $VERSION = "1.05";
+our $VERSION = "1.06";
our @ISA = qw( Exporter );
our @EXPORT = qw( mkpath rmtree );
==== //depot/maint-5.8/perl/lib/Hash/Util.pm#4 (text) ====
Index: perl/lib/Hash/Util.pm
--- perl/lib/Hash/Util.pm#3~19347~ Sat Apr 26 23:11:14 2003
+++ perl/lib/Hash/Util.pm Wed Aug 13 22:35:13 2003
@@ -9,7 +9,7 @@
our @EXPORT_OK = qw(lock_keys unlock_keys lock_value unlock_value
lock_hash unlock_hash
);
-our $VERSION = 0.04;
+our $VERSION = 0.05;
=head1 NAME
==== //depot/maint-5.8/perl/lib/Net/hostent.pm#3 (text) ====
Index: perl/lib/Net/hostent.pm
--- perl/lib/Net/hostent.pm#2~18080~ Sun Nov 3 21:23:04 2002
+++ perl/lib/Net/hostent.pm Wed Aug 13 22:35:13 2003
@@ -2,7 +2,7 @@
use strict;
use 5.006_001;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
==== //depot/maint-5.8/perl/lib/Net/servent.pm#3 (text) ====
Index: perl/lib/Net/servent.pm
--- perl/lib/Net/servent.pm#2~19073~ Wed Mar 26 20:25:46 2003
+++ perl/lib/Net/servent.pm Wed Aug 13 22:35:13 2003
@@ -2,7 +2,7 @@
use strict;
use 5.006_001;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
==== //depot/maint-5.8/perl/lib/SelfLoader.pm#3 (text) ====
Index: perl/lib/SelfLoader.pm
--- perl/lib/SelfLoader.pm#2~20690~ Wed Aug 13 22:18:30 2003
+++ perl/lib/SelfLoader.pm Wed Aug 13 22:35:13 2003
@@ -3,7 +3,7 @@
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(AUTOLOAD);
-$VERSION = "1.0903";
+$VERSION = "1.0904";
sub Version {$VERSION}
$DEBUG = 0;
==== //depot/maint-5.8/perl/lib/Text/Abbrev.pm#3 (text) ====
Index: perl/lib/Text/Abbrev.pm
--- perl/lib/Text/Abbrev.pm#2~19123~ Tue Apr 1 08:38:55 2003
+++ perl/lib/Text/Abbrev.pm Wed Aug 13 22:35:13 2003
@@ -2,7 +2,7 @@
require 5.005; # Probably works on earlier versions too.
require Exporter;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
=head1 NAME
==== //depot/maint-5.8/perl/lib/Thread/Semaphore.pm#3 (text) ====
Index: perl/lib/Thread/Semaphore.pm
--- perl/lib/Thread/Semaphore.pm#2~19855~ Wed Jun 25 22:36:41 2003
+++ perl/lib/Thread/Semaphore.pm Wed Aug 13 22:35:13 2003
@@ -2,7 +2,7 @@
use threads::shared;
-our $VERSION = '2.00';
+our $VERSION = '2.01';
=head1 NAME
==== //depot/maint-5.8/perl/lib/Tie/Array.pm#3 (text) ====
Index: perl/lib/Tie/Array.pm
--- perl/lib/Tie/Array.pm#2~18080~ Sun Nov 3 21:23:04 2002
+++ perl/lib/Tie/Array.pm Wed Aug 13 22:35:13 2003
@@ -3,7 +3,7 @@
use 5.006_001;
use strict;
use Carp;
-our $VERSION = '1.02';
+our $VERSION = '1.03';
# Pod documentation after __END__ below.
==== //depot/maint-5.8/perl/lib/Tie/RefHash.pm#4 (text) ====
Index: perl/lib/Tie/RefHash.pm
--- perl/lib/Tie/RefHash.pm#3~20372~ Wed Jul 30 22:43:15 2003
+++ perl/lib/Tie/RefHash.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package Tie::RefHash;
-our $VERSION = 1.30;
+our $VERSION = 1.31;
=head1 NAME
==== //depot/maint-5.8/perl/lib/UNIVERSAL.pm#3 (text) ====
Index: perl/lib/UNIVERSAL.pm
--- perl/lib/UNIVERSAL.pm#2~19360~ Mon Apr 28 02:10:08 2003
+++ perl/lib/UNIVERSAL.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package UNIVERSAL;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
# UNIVERSAL should not contain any extra subs/methods beyond those
# that it exists to define. The use of Exporter below is a historical
==== //depot/maint-5.8/perl/lib/Unicode/UCD.pm#6 (text) ====
Index: perl/lib/Unicode/UCD.pm
--- perl/lib/Unicode/UCD.pm#5~20610~ Sun Aug 10 23:37:13 2003
+++ perl/lib/Unicode/UCD.pm Wed Aug 13 22:35:13 2003
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.2';
+our $VERSION = '0.21';
use Storable qw(dclone);
==== //depot/maint-5.8/perl/lib/attributes.pm#3 (text) ====
Index: perl/lib/attributes.pm
--- perl/lib/attributes.pm#2~19193~ Sat Apr 12 11:46:31 2003
+++ perl/lib/attributes.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package attributes;
-our $VERSION = 0.05;
+our $VERSION = 0.06;
@EXPORT_OK = qw(get reftype);
@EXPORT = ();
==== //depot/maint-5.8/perl/lib/base.pm#3 (text) ====
Index: perl/lib/base.pm
--- perl/lib/base.pm#2~19193~ Sat Apr 12 11:46:31 2003
+++ perl/lib/base.pm Wed Aug 13 22:35:13 2003
@@ -45,7 +45,7 @@
package base;
use 5.006_001;
-our $VERSION = "1.03";
+our $VERSION = "1.04";
sub import {
my $class = shift;
==== //depot/maint-5.8/perl/lib/diagnostics.pm#4 (xtext) ====
Index: perl/lib/diagnostics.pm
--- perl/lib/diagnostics.pm#3~19011~ Mon Mar 17 11:15:23 2003
+++ perl/lib/diagnostics.pm Wed Aug 13 22:35:13 2003
@@ -171,7 +171,7 @@
use 5.006;
use Carp;
-our $VERSION = 1.1;
+our $VERSION = 1.11;
our $DEBUG;
our $VERBOSE;
our $PRETTY;
==== //depot/maint-5.8/perl/lib/filetest.pm#5 (text) ====
Index: perl/lib/filetest.pm
--- perl/lib/filetest.pm#4~19397~ Sun May 4 01:16:21 2003
+++ perl/lib/filetest.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package filetest;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
=head1 NAME
==== //depot/maint-5.8/perl/lib/open.pm#7 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm#6~19611~ Sat May 24 00:50:43 2003
+++ perl/lib/open.pm Wed Aug 13 22:35:13 2003
@@ -3,7 +3,7 @@
use Carp;
$open::hint_bits = 0x20000; # HINT_LOCALIZE_HH
-our $VERSION = '1.01';
+our $VERSION = '1.02';
my $locale_encoding;
==== //depot/maint-5.8/perl/lib/overload.pm#4 (text) ====
Index: perl/lib/overload.pm
--- perl/lib/overload.pm#3~19844~ Sun Jun 22 12:38:58 2003
+++ perl/lib/overload.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package overload;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
$overload::hint_bits = 0x20000; # HINT_LOCALIZE_HH
==== //depot/maint-5.8/perl/lib/utf8.pm#3 (text) ====
Index: perl/lib/utf8.pm
--- perl/lib/utf8.pm#2~19791~ Sun Jun 15 10:57:06 2003
+++ perl/lib/utf8.pm Wed Aug 13 22:35:13 2003
@@ -2,7 +2,7 @@
$utf8::hint_bits = 0x00800000;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
sub import {
$^H |= $utf8::hint_bits;
==== //depot/maint-5.8/perl/lib/vmsish.pm#3 (text) ====
Index: perl/lib/vmsish.pm
--- perl/lib/vmsish.pm#2~18227~ Mon Dec 2 05:23:48 2002
+++ perl/lib/vmsish.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package vmsish;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
=head1 NAME
==== //depot/maint-5.8/perl/os2/OS2/Process/Process.pm#3 (text) ====
Index: perl/os2/OS2/Process/Process.pm
--- perl/os2/OS2/Process/Process.pm#2~19791~ Sun Jun 15 10:57:06 2003
+++ perl/os2/OS2/Process/Process.pm Wed Aug 13 22:35:13 2003
@@ -20,7 +20,7 @@
#require AutoLoader;
our @ISA = qw(Exporter);
- our $VERSION = "1.0";
+ our $VERSION = "1.01";
XSLoader::load('OS2::Process', $VERSION);
}
==== //depot/maint-5.8/perl/os2/OS2/REXX/DLL/DLL.pm#4 (text) ====
Index: perl/os2/OS2/REXX/DLL/DLL.pm
--- perl/os2/OS2/REXX/DLL/DLL.pm#3~19791~ Sun Jun 15 10:57:06 2003
+++ perl/os2/OS2/REXX/DLL/DLL.pm Wed Aug 13 22:35:13 2003
@@ -1,6 +1,6 @@
package OS2::DLL;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
use Carp;
use XSLoader;
==== //depot/maint-5.8/perl/t/TestInit.pm#4 (text) ====
Index: perl/t/TestInit.pm
--- perl/t/TestInit.pm#3~19968~ Thu Jul 3 12:17:29 2003
+++ perl/t/TestInit.pm Wed Aug 13 22:35:13 2003
@@ -15,6 +15,8 @@
package TestInit;
+$VERSION = 1.01;
+
chdir 't' if -d 't';
@INC = '../lib';
==== //depot/maint-5.8/perl/t/lib/MakeMaker/Test/Utils.pm#3 (text) ====
Index: perl/t/lib/MakeMaker/Test/Utils.pm
--- perl/t/lib/MakeMaker/Test/Utils.pm#2~19165~ Tue Apr 8 10:43:04 2003
+++ perl/t/lib/MakeMaker/Test/Utils.pm Wed Aug 13 22:35:13 2003
@@ -9,7 +9,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = 0.02;
+$VERSION = 0.03;
@EXPORT = qw(which_perl perl_lib makefile_name makefile_backup
make make_run run make_macro calibrate_mtime
==== //depot/maint-5.8/perl/t/lib/Math/BigInt/BareCalc.pm#3 (text) ====
Index: perl/t/lib/Math/BigInt/BareCalc.pm
--- perl/t/lib/Math/BigInt/BareCalc.pm#2~20013~ Sat Jul 5 06:58:18 2003
+++ perl/t/lib/Math/BigInt/BareCalc.pm Wed Aug 13 22:35:13 2003
@@ -8,7 +8,7 @@
use vars qw/@ISA $VERSION/;
@ISA = qw(Exporter);
-$VERSION = '0.02';
+$VERSION = '0.03';
# Package to to test Bigint's simulation of Calc
==== //depot/maint-5.8/perl/vms/ext/Filespec.pm#3 (text) ====
Index: perl/vms/ext/Filespec.pm
--- perl/vms/ext/Filespec.pm#2~20212~ Thu Jul 24 07:32:57 2003
+++ perl/vms/ext/Filespec.pm Wed Aug 13 22:35:13 2003
@@ -128,7 +128,7 @@
package VMS::Filespec;
require 5.002;
-our $VERSION = '1.1';
+our $VERSION = '1.11';
# If you want to use this package on a non-VMS system,
# uncomment the following line.
==== //depot/maint-5.8/perl/warnings.pl#3 (text) ====
Index: perl/warnings.pl
--- perl/warnings.pl#2~18126~ Sat Nov 9 11:00:47 2002
+++ perl/warnings.pl Wed Aug 13 22:35:13 2003
@@ -474,7 +474,7 @@
package warnings;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
=head1 NAME
End of Patch.
