Change 11047 by jhi@alpha on 2001/06/30 16:03:40
More VERSION tuning: to avoid unnecessary Perl upgrades
by CPAN.pm, use rather _00.
Affected files ...
... //depot/perl/ext/Errno/Errno_pm.PL#27 edit
... //depot/perl/ext/IO/lib/IO/Dir.pm#6 edit
... //depot/perl/ext/IO/lib/IO/Handle.pm#22 edit
... //depot/perl/ext/IO/lib/IO/Seekable.pm#15 edit
... //depot/perl/ext/IO/lib/IO/Socket/UNIX.pm#7 edit
... //depot/perl/ext/IPC/SysV/Msg.pm#7 edit
... //depot/perl/ext/IPC/SysV/Semaphore.pm#7 edit
... //depot/perl/ext/IPC/SysV/SysV.pm#5 edit
... //depot/perl/ext/Time/HiRes/HiRes.pm#5 edit
... //depot/perl/lib/CGI/Pretty.pm#7 edit
... //depot/perl/lib/CPAN/Nox.pm#13 edit
... //depot/perl/lib/ExtUtils/Embed.pm#18 edit
... //depot/perl/lib/Test.pm#17 edit
Differences ...
==== //depot/perl/ext/Errno/Errno_pm.PL#27 (text) ====
Index: perl/ext/Errno/Errno_pm.PL
--- perl/ext/Errno/Errno_pm.PL.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/Errno/Errno_pm.PL Sat Jun 30 10:15:05 2001
@@ -2,7 +2,7 @@
use Config;
use strict;
-our $VERSION = "1.111";
+our $VERSION = "1.09_00";
my %err = ();
==== //depot/perl/ext/IO/lib/IO/Dir.pm#6 (text) ====
Index: perl/ext/IO/lib/IO/Dir.pm
--- perl/ext/IO/lib/IO/Dir.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/IO/lib/IO/Dir.pm Sat Jun 30 10:15:05 2001
@@ -19,7 +19,7 @@
use File::Spec;
@ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.04";
+$VERSION = "1.03_00";
@EXPORT_OK = qw(DIR_UNLINK);
sub DIR_UNLINK () { 1 }
==== //depot/perl/ext/IO/lib/IO/Handle.pm#22 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/IO/lib/IO/Handle.pm Sat Jun 30 10:15:05 2001
@@ -258,7 +258,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.22";
+$VERSION = "1.21_00";
@EXPORT_OK = qw(
autoflush
==== //depot/perl/ext/IO/lib/IO/Seekable.pm#15 (text) ====
Index: perl/ext/IO/lib/IO/Seekable.pm
--- perl/ext/IO/lib/IO/Seekable.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/IO/lib/IO/Seekable.pm Sat Jun 30 10:15:05 2001
@@ -107,7 +107,7 @@
@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
@ISA = qw(Exporter);
-$VERSION = "1.09";
+$VERSION = "1.08_00";
sub seek {
@_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
==== //depot/perl/ext/IO/lib/IO/Socket/UNIX.pm#7 (text) ====
Index: perl/ext/IO/lib/IO/Socket/UNIX.pm
--- perl/ext/IO/lib/IO/Socket/UNIX.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/IO/lib/IO/Socket/UNIX.pm Sat Jun 30 10:15:05 2001
@@ -13,7 +13,7 @@
use Carp;
@ISA = qw(IO::Socket);
-$VERSION = "1.21";
+$VERSION = "1.20_00";
IO::Socket::UNIX->register_domain( AF_UNIX );
==== //depot/perl/ext/IPC/SysV/Msg.pm#7 (text) ====
Index: perl/ext/IPC/SysV/Msg.pm
--- perl/ext/IPC/SysV/Msg.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/IPC/SysV/Msg.pm Sat Jun 30 10:15:05 2001
@@ -11,7 +11,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.01";
+$VERSION = "1.00_00";
{
package IPC::Msg::stat;
==== //depot/perl/ext/IPC/SysV/Semaphore.pm#7 (text) ====
Index: perl/ext/IPC/SysV/Semaphore.pm
--- perl/ext/IPC/SysV/Semaphore.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/IPC/SysV/Semaphore.pm Sat Jun 30 10:15:05 2001
@@ -12,7 +12,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.01";
+$VERSION = "1.00_00";
{
package IPC::Semaphore::stat;
==== //depot/perl/ext/IPC/SysV/SysV.pm#5 (text) ====
Index: perl/ext/IPC/SysV/SysV.pm
--- perl/ext/IPC/SysV/SysV.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/IPC/SysV/SysV.pm Sat Jun 30 10:15:05 2001
@@ -14,7 +14,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.04";
+$VERSION = "1.03_00";
@EXPORT_OK = qw(
GETALL GETNCNT GETPID GETVAL GETZCNT
==== //depot/perl/ext/Time/HiRes/HiRes.pm#5 (text) ====
Index: perl/ext/Time/HiRes/HiRes.pm
--- perl/ext/Time/HiRes/HiRes.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/ext/Time/HiRes/HiRes.pm Sat Jun 30 10:15:05 2001
@@ -12,7 +12,7 @@
@EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
getitimer setitimer ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF);
-$VERSION = '1.21';
+$VERSION = '1.20_00';
sub AUTOLOAD {
my $constname;
==== //depot/perl/lib/CGI/Pretty.pm#7 (text) ====
Index: perl/lib/CGI/Pretty.pm
--- perl/lib/CGI/Pretty.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/lib/CGI/Pretty.pm Sat Jun 30 10:15:05 2001
@@ -10,7 +10,7 @@
use strict;
use CGI ();
-$CGI::Pretty::VERSION = '1.06';
+$CGI::Pretty::VERSION = '1.05_00';
$CGI::DefaultClass = __PACKAGE__;
$CGI::Pretty::AutoloadClass = 'CGI';
@CGI::Pretty::ISA = qw( CGI );
==== //depot/perl/lib/CPAN/Nox.pm#13 (text) ====
Index: perl/lib/CPAN/Nox.pm
--- perl/lib/CPAN/Nox.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/lib/CPAN/Nox.pm Sat Jun 30 10:15:05 2001
@@ -9,7 +9,7 @@
use base 'Exporter';
use CPAN;
-$VERSION = "1.01";
+$VERSION = "1.00_00";
$CPAN::META->has_inst('MD5','no');
$CPAN::META->has_inst('LWP','no');
$CPAN::META->has_inst('Compress::Zlib','no');
==== //depot/perl/lib/ExtUtils/Embed.pm#18 (text) ====
Index: perl/lib/ExtUtils/Embed.pm
--- perl/lib/ExtUtils/Embed.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/lib/ExtUtils/Embed.pm Sat Jun 30 10:15:05 2001
@@ -18,7 +18,7 @@
);
use strict;
-$VERSION = sprintf("%d.%02d", q$Revision: 1.2506 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.2505_00 $ =~ /(\d+)\.(\d+)/);
@ISA = qw(Exporter);
@EXPORT = qw(&xsinit &ldopts
==== //depot/perl/lib/Test.pm#17 (text) ====
Index: perl/lib/Test.pm
--- perl/lib/Test.pm.~1~ Sat Jun 30 10:15:05 2001
+++ perl/lib/Test.pm Sat Jun 30 10:15:05 2001
@@ -9,7 +9,7 @@
qw($TESTOUT $ONFAIL %todo %history $planned @FAILDETAIL)#private-ish
);
-$VERSION = '1.18';
+$VERSION = '1.17_00';
require Exporter;
@ISA=('Exporter');
End of Patch.
