Integrate:

[ 20685]
Subject: Re: script wanted
From: Enache Adrian <enache@rdslink.ro>
Date: Wed, 13 Aug 2003 22:31:18 +0300
Message-ID: <20030813193118.GA1273@ratsnest.hole>

[ 20686]
Subject: Re: script wanted
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 13 Aug 2003 20:46:09 +0100
Message-ID: <20030813204609.G20130@plum.flirble.org>

[ 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.
p4raw-link: @20692 on //depot/perl: b21337cc1584713235c7c6bdcfc6deff1c6d5ce1
p4raw-link: @20691 on //depot/perl: 88830c88431d18029575b23c5ab19a81d9b88f19
p4raw-link: @20688 on //depot/perl: 2af1ab88da52f38a7450a6455bc28aa93c8e4e57
p4raw-link: @20687 on //depot/perl: e9d8cdc0682791dad6e1ddeac96716205beff833
p4raw-link: @20686 on //depot/perl: 4522225b0b1dd6f5498ad893469cb9b2e20183b7
p4raw-link: @20685 on //depot/perl: a0edd7f8266d86f8576becc8e4647dbf502c681d

p4raw-id: //depot/maint-5.8/perl@20693
p4raw-integrated: from //depot/perl@20690 'copy in'
	ext/Devel/Peek/Peek.pm ext/IO/lib/IO/Dir.pm
	ext/IO/lib/IO/Seekable.pm ext/IO/lib/IO/Socket/UNIX.pm
	ext/IPC/SysV/SysV.pm (@16822..) lib/Net/hostent.pm (@17735..)
	ext/IPC/SysV/Semaphore.pm (@17825..) lib/Tie/Array.pm
	(@17979..) ext/B/B/Lint.pm (@18149..) ext/re/re.pm
	lib/vmsish.pm (@18217..) ext/B/B/Bblock.pm (@18737..)
	ext/IO/lib/IO/Socket/INET.pm (@18748..) lib/File/Basename.pm
	(@18810..) ext/IPC/SysV/Msg.pm (@18811..)
	ext/IO/lib/IO/Select.pm (@18853..) lib/diagnostics.pm
	(@19010..) lib/Net/servent.pm (@19063..) lib/Text/Abbrev.pm
	(@19114..) t/lib/MakeMaker/Test/Utils.pm (@19162..)
	lib/attributes.pm (@19167..) lib/base.pm (@19189..)
	lib/Hash/Util.pm (@19346..) lib/UNIVERSAL.pm (@19348..)
	lib/filetest.pm (@19393..) lib/File/Path.pm (@19444..)
	lib/CPAN/Nox.pm (@19573..) lib/open.pm (@19600..)
	ext/Sys/Hostname/Hostname.pm (@19621..) ext/IO/lib/IO/Handle.pm
	(@19631..) ext/IO/lib/IO/File.pm (@19634..)
	ext/threads/shared/shared.pm (@19715..) lib/utf8.pm (@19778..)
	os2/OS2/Process/Process.pm os2/OS2/REXX/DLL/DLL.pm (@19789..)
	ext/Fcntl/Fcntl.pm (@19798..) lib/File/Copy.pm (@19799..)
	ext/threads/threads.pm (@19818..) lib/Thread/Semaphore.pm
	(@19853..) ext/B/B/Debug.pm (@19939..) t/TestInit.pm (@19964..)
	t/lib/Math/BigInt/BareCalc.pm (@20000..)
	ext/IO/lib/IO/Socket.pm (@20193..) ext/IO/IO.pm (@20194..)
	vms/ext/Filespec.pm (@20197..) lib/Tie/RefHash.pm (@20368..)
	ext/Devel/DProf/DProf.pm (@20440..) ext/File/Glob/Glob.pm
	(@20445..) ext/Sys/Syslog/Syslog.pm (@20533..)
	lib/SelfLoader.pm (@20578..) lib/AutoSplit.pm (@20583..)
	ext/POSIX/POSIX.pm (@20596..) lib/Unicode/UCD.pm (@20609..)
	lib/Cwd.pm (@20645..) Porting/cmpVERSION.pl (@20678..) 'merge
	in' lib/fields.pm (@17725..) ext/B/B/C.pm (@18220..)
	warnings.pl (@18828..) lib/English.pm (@19769..)
	lib/overload.pm (@19840..) ext/B/B.pm (@20253..)

27 files changed, 28 insertions, 31 deletions

diff --git a/ext/B/B.pm b/ext/B/B.pm
index b277c5d03d..8a1a2fe821 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -7,7 +7,7 @@
 #
 package B;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 use XSLoader ();
 require Exporter;
diff --git a/ext/B/B/Bblock.pm b/ext/B/B/Bblock.pm
index 35a80ea3c0..908cc76055 100644
--- a/ext/B/B/Bblock.pm
+++ b/ext/B/B/Bblock.pm
@@ -1,6 +1,6 @@
 package B::Bblock;
 
-our $VERSION = '1.00';
+our $VERSION = '1.02';
 
 use Exporter ();
 @ISA = "Exporter";
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 47683a2df6..83c34040de 100644
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -7,7 +7,7 @@
 #
 package B::C::Section;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 use B ();
 use base B::Section;
diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm
index 38cfc67569..92b91d2726 100644
--- a/ext/B/B/Debug.pm
+++ b/ext/B/B/Debug.pm
@@ -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
diff --git a/ext/B/B/Lint.pm b/ext/B/B/Lint.pm
index af82a1a4e8..1c08e8e0ea 100644
--- a/ext/B/B/Lint.pm
+++ b/ext/B/B/Lint.pm
@@ -1,6 +1,6 @@
 package B::Lint;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 =head1 NAME
 
diff --git a/ext/Devel/DProf/DProf.pm b/ext/Devel/DProf/DProf.pm
index 1a22b7579e..247b664caf 100644
--- a/ext/Devel/DProf/DProf.pm
+++ b/ext/Devel/DProf/DProf.pm
@@ -205,9 +205,8 @@ sub DB {
 
 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;
 
diff --git a/ext/Devel/Peek/Peek.pm b/ext/Devel/Peek/Peek.pm
index 37e01a4644..4bd2dd9aaa 100644
--- a/ext/Devel/Peek/Peek.pm
+++ b/ext/Devel/Peek/Peek.pm
@@ -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;
 
diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 5153ad5393..9cdeb13ed0 100644
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -60,7 +60,7 @@ our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD);
 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 =
diff --git a/ext/File/Glob/Glob.pm b/ext/File/Glob/Glob.pm
index d670b6ae7b..2aa3a1db37 100644
--- a/ext/File/Glob/Glob.pm
+++ b/ext/File/Glob/Glob.pm
@@ -56,7 +56,7 @@ use XSLoader ();
     ) ],
 );
 
-$VERSION = '1.01';
+$VERSION = '1.02';
 
 sub import {
     require Exporter;
diff --git a/ext/IO/IO.pm b/ext/IO/IO.pm
index 70017cbd46..2a368e7f1f 100644
--- a/ext/IO/IO.pm
+++ b/ext/IO/IO.pm
@@ -7,7 +7,7 @@ use Carp;
 use strict;
 use warnings;
 
-our $VERSION = "1.20";
+our $VERSION = "1.21";
 XSLoader::load 'IO', $VERSION;
 
 sub import {
diff --git a/ext/IO/lib/IO/Dir.pm b/ext/IO/lib/IO/Dir.pm
index ccae4f0076..de736ccd6a 100644
--- a/ext/IO/lib/IO/Dir.pm
+++ b/ext/IO/lib/IO/Dir.pm
@@ -19,7 +19,7 @@ use File::stat;
 use File::Spec;
 
 @ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.03_00";
+$VERSION = "1.04";
 $VERSION = eval $VERSION;
 @EXPORT_OK = qw(DIR_UNLINK);
 
diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm
index c90eb37a4c..538efcd0b6 100644
--- a/ext/IO/lib/IO/File.pm
+++ b/ext/IO/lib/IO/File.pm
@@ -121,7 +121,7 @@ require Exporter;
 
 @ISA = qw(IO::Handle IO::Seekable Exporter);
 
-$VERSION = "1.09";
+$VERSION = "1.10";
 
 @EXPORT = @IO::Seekable::EXPORT;
 
diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index 29b83165a2..50d391f820 100644
--- a/ext/IO/lib/IO/Handle.pm
+++ b/ext/IO/lib/IO/Handle.pm
@@ -1,4 +1,3 @@
-
 package IO::Handle;
 
 =head1 NAME
@@ -263,7 +262,7 @@ use IO ();	# Load the XS module
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = "1.21_00";
+$VERSION = "1.23";
 $VERSION = eval $VERSION;
 
 @EXPORT_OK = qw(
diff --git a/ext/IO/lib/IO/Seekable.pm b/ext/IO/lib/IO/Seekable.pm
index 2ddee4d53c..240b288e83 100644
--- a/ext/IO/lib/IO/Seekable.pm
+++ b/ext/IO/lib/IO/Seekable.pm
@@ -107,7 +107,7 @@ require Exporter;
 @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
 @ISA = qw(Exporter);
 
-$VERSION = "1.08_00";
+$VERSION = "1.09";
 $VERSION = eval $VERSION;
 
 sub seek {
diff --git a/ext/IO/lib/IO/Select.pm b/ext/IO/lib/IO/Select.pm
index 83c3d4a1b3..3e23cc087f 100644
--- a/ext/IO/lib/IO/Select.pm
+++ b/ext/IO/lib/IO/Select.pm
@@ -11,7 +11,7 @@ use warnings::register;
 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
 
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index f8c3cb346a..e706894a75 100644
--- a/ext/IO/lib/IO/Socket.pm
+++ b/ext/IO/lib/IO/Socket.pm
@@ -23,7 +23,7 @@ require IO::Socket::UNIX if ($^O ne 'epoc');
 
 @ISA = qw(IO::Handle);
 
-$VERSION = "1.27";
+$VERSION = "1.28";
 
 @EXPORT_OK = qw(sockatmark);
 
diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index 7d1c94dedd..ce3435fe06 100644
--- a/ext/IO/lib/IO/Socket/INET.pm
+++ b/ext/IO/lib/IO/Socket/INET.pm
@@ -15,7 +15,7 @@ use Exporter;
 use Errno;
 
 @ISA = qw(IO::Socket);
-$VERSION = "1.26";
+$VERSION = "1.27";
 
 my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
 
diff --git a/ext/IO/lib/IO/Socket/UNIX.pm b/ext/IO/lib/IO/Socket/UNIX.pm
index bbc2a448c7..6d0e95a78d 100644
--- a/ext/IO/lib/IO/Socket/UNIX.pm
+++ b/ext/IO/lib/IO/Socket/UNIX.pm
@@ -13,7 +13,7 @@ use Socket;
 use Carp;
 
 @ISA = qw(IO::Socket);
-$VERSION = "1.20_00";
+$VERSION = "1.21";
 $VERSION = eval $VERSION;
 
 IO::Socket::UNIX->register_domain( AF_UNIX );
diff --git a/ext/IPC/SysV/Msg.pm b/ext/IPC/SysV/Msg.pm
index 50ca564906..fadd38f94d 100644
--- a/ext/IPC/SysV/Msg.pm
+++ b/ext/IPC/SysV/Msg.pm
@@ -11,7 +11,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = "1.00_00";
+$VERSION = "1.02";
 $VERSION = eval $VERSION;
 
 {
diff --git a/ext/IPC/SysV/Semaphore.pm b/ext/IPC/SysV/Semaphore.pm
index 5816f9c1e9..94ccf91728 100644
--- a/ext/IPC/SysV/Semaphore.pm
+++ b/ext/IPC/SysV/Semaphore.pm
@@ -12,7 +12,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = "1.00_00";
+$VERSION = "1.02";
 $VERSION = eval $VERSION;
 
 {
diff --git a/ext/IPC/SysV/SysV.pm b/ext/IPC/SysV/SysV.pm
index d4c51af497..7645ced9f1 100644
--- a/ext/IPC/SysV/SysV.pm
+++ b/ext/IPC/SysV/SysV.pm
@@ -14,7 +14,7 @@ use Config;
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = "1.03_00";
+$VERSION = "1.04";
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index edd36098da..819fe57564 100644
--- a/ext/POSIX/POSIX.pm
+++ b/ext/POSIX/POSIX.pm
@@ -2,7 +2,7 @@ package POSIX;
 
 our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
 
-our $VERSION = "1.05" ;
+our $VERSION = "1.06" ;
 
 use AutoLoader;
 
diff --git a/ext/Sys/Hostname/Hostname.pm b/ext/Sys/Hostname/Hostname.pm
index 632ea9bb79..415f9517fa 100644
--- a/ext/Sys/Hostname/Hostname.pm
+++ b/ext/Sys/Hostname/Hostname.pm
@@ -15,7 +15,7 @@ our $VERSION;
 our $host;
 
 BEGIN {
-    $VERSION = '1.1';
+    $VERSION = '1.11';
     {
 	local $SIG{__DIE__};
 	eval {
diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 1aec33f859..03adde6363 100644
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -7,7 +7,7 @@ use Carp;
 @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
diff --git a/ext/re/re.pm b/ext/re/re.pm
index 6720a7bdb6..bf26fd2123 100644
--- a/ext/re/re.pm
+++ b/ext/re/re.pm
@@ -1,6 +1,6 @@
 package re;
 
-our $VERSION = 0.03;
+our $VERSION = 0.04;
 
 =head1 NAME
 
diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm
index 64ab0799f5..9c573ba866 100644
--- a/ext/threads/shared/shared.pm
+++ b/ext/threads/shared/shared.pm
@@ -7,7 +7,7 @@ BEGIN {
     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;
diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index 66c6134e82..6709f633a9 100755
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -52,7 +52,7 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 our @EXPORT = qw(
 async	
 );
-our $VERSION = '0.99';
+our $VERSION = '1.00';
 
 
 sub equal {