Change 11016 by jhi@alpha on 2001/06/29 03:38:56
Bump up the VERSIONs of modules that have changed since 5.6.0,
the modules found using a script written by Larry Schatzer Jr.
Affected files ...
... //depot/perl/ext/IO/lib/IO/Dir.pm#5 edit
... //depot/perl/ext/IO/lib/IO/Handle.pm#21 edit
... //depot/perl/ext/IO/lib/IO/Seekable.pm#14 edit
... //depot/perl/ext/IO/lib/IO/Select.pm#13 edit
... //depot/perl/ext/IO/lib/IO/Socket/INET.pm#14 edit
... //depot/perl/ext/IO/lib/IO/Socket/UNIX.pm#6 edit
... //depot/perl/ext/IPC/SysV/Msg.pm#6 edit
... //depot/perl/ext/IPC/SysV/Semaphore.pm#6 edit
... //depot/perl/ext/IPC/SysV/SysV.pm#4 edit
... //depot/perl/ext/Opcode/Opcode.pm#22 edit
... //depot/perl/ext/Opcode/Safe.pm#14 edit
... //depot/perl/ext/Thread/Thread.pm#19 edit
... //depot/perl/ext/attrs/attrs.pm#10 edit
... //depot/perl/ext/re/re.pm#15 edit
... //depot/perl/lib/AutoSplit.pm#27 edit
... //depot/perl/lib/Benchmark.pm#23 edit
... //depot/perl/lib/CGI/Pretty.pm#6 edit
... //depot/perl/lib/CPAN/Nox.pm#12 edit
... //depot/perl/lib/Exporter.pm#16 edit
... //depot/perl/lib/ExtUtils/Command.pm#10 edit
... //depot/perl/lib/ExtUtils/MakeMaker.pm#59 edit
... //depot/perl/lib/ExtUtils/Packlist.pm#6 edit
... //depot/perl/lib/File/Compare.pm#12 edit
... //depot/perl/lib/FileHandle.pm#12 edit
... //depot/perl/lib/Math/Complex.pm#26 edit
... //depot/perl/lib/Math/Trig.pm#17 edit
... //depot/perl/lib/Pod/Html.pm#45 edit
... //depot/perl/lib/Symbol.pm#9 edit
... //depot/perl/lib/Text/ParseWords.pm#13 edit
... //depot/perl/lib/Text/Soundex.pm#9 edit
... //depot/perl/lib/Text/Tabs.pm#10 edit
... //depot/perl/lib/Tie/Array.pm#11 edit
... //depot/perl/lib/attributes.pm#8 edit
... //depot/perl/lib/autouse.pm#13 edit
... //depot/perl/lib/base.pm#14 edit
... //depot/perl/lib/constant.pm#14 edit
... //depot/perl/lib/fields.pm#17 edit
... //depot/perl/lib/strict.pm#14 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/Dir.pm#5 (text) ====
Index: perl/ext/IO/lib/IO/Dir.pm
--- perl/ext/IO/lib/IO/Dir.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IO/lib/IO/Dir.pm Thu Jun 28 21:45:05 2001
@@ -19,7 +19,7 @@
use File::Spec;
@ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.03";
+$VERSION = "1.04";
@EXPORT_OK = qw(DIR_UNLINK);
sub DIR_UNLINK () { 1 }
==== //depot/perl/ext/IO/lib/IO/Handle.pm#21 (text) ====
Index: perl/ext/IO/lib/IO/Handle.pm
--- perl/ext/IO/lib/IO/Handle.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IO/lib/IO/Handle.pm Thu Jun 28 21:45:05 2001
@@ -258,7 +258,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.21";
+$VERSION = "1.22";
@EXPORT_OK = qw(
autoflush
==== //depot/perl/ext/IO/lib/IO/Seekable.pm#14 (text) ====
Index: perl/ext/IO/lib/IO/Seekable.pm
--- perl/ext/IO/lib/IO/Seekable.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IO/lib/IO/Seekable.pm Thu Jun 28 21:45:05 2001
@@ -107,7 +107,7 @@
@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
@ISA = qw(Exporter);
-$VERSION = "1.08";
+$VERSION = "1.09";
sub seek {
@_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
==== //depot/perl/ext/IO/lib/IO/Select.pm#13 (text) ====
Index: perl/ext/IO/lib/IO/Select.pm
--- perl/ext/IO/lib/IO/Select.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IO/lib/IO/Select.pm Thu Jun 28 21:45:05 2001
@@ -11,7 +11,7 @@
use vars qw($VERSION @ISA);
require Exporter;
-$VERSION = "1.14";
+$VERSION = "1.15";
@ISA = qw(Exporter); # This is only so we can do version checking
==== //depot/perl/ext/IO/lib/IO/Socket/INET.pm#14 (text) ====
Index: perl/ext/IO/lib/IO/Socket/INET.pm
--- perl/ext/IO/lib/IO/Socket/INET.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IO/lib/IO/Socket/INET.pm Thu Jun 28 21:45:05 2001
@@ -15,7 +15,7 @@
use Errno;
@ISA = qw(IO::Socket);
-$VERSION = "1.25";
+$VERSION = "1.26";
my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
==== //depot/perl/ext/IO/lib/IO/Socket/UNIX.pm#6 (text) ====
Index: perl/ext/IO/lib/IO/Socket/UNIX.pm
--- perl/ext/IO/lib/IO/Socket/UNIX.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IO/lib/IO/Socket/UNIX.pm Thu Jun 28 21:45:05 2001
@@ -13,7 +13,7 @@
use Carp;
@ISA = qw(IO::Socket);
-$VERSION = "1.20";
+$VERSION = "1.21";
IO::Socket::UNIX->register_domain( AF_UNIX );
==== //depot/perl/ext/IPC/SysV/Msg.pm#6 (text) ====
Index: perl/ext/IPC/SysV/Msg.pm
--- perl/ext/IPC/SysV/Msg.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IPC/SysV/Msg.pm Thu Jun 28 21:45:05 2001
@@ -11,7 +11,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.00";
+$VERSION = "1.01";
{
package IPC::Msg::stat;
==== //depot/perl/ext/IPC/SysV/Semaphore.pm#6 (text) ====
Index: perl/ext/IPC/SysV/Semaphore.pm
--- perl/ext/IPC/SysV/Semaphore.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IPC/SysV/Semaphore.pm Thu Jun 28 21:45:05 2001
@@ -12,7 +12,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.00";
+$VERSION = "1.01";
{
package IPC::Semaphore::stat;
==== //depot/perl/ext/IPC/SysV/SysV.pm#4 (text) ====
Index: perl/ext/IPC/SysV/SysV.pm
--- perl/ext/IPC/SysV/SysV.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/IPC/SysV/SysV.pm Thu Jun 28 21:45:05 2001
@@ -14,7 +14,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = "1.03";
+$VERSION = "1.04";
@EXPORT_OK = qw(
GETALL GETNCNT GETPID GETVAL GETZCNT
==== //depot/perl/ext/Opcode/Opcode.pm#22 (text) ====
Index: perl/ext/Opcode/Opcode.pm
--- perl/ext/Opcode/Opcode.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/Opcode/Opcode.pm Thu Jun 28 21:45:05 2001
@@ -6,7 +6,7 @@
our($VERSION, $XS_VERSION, @ISA, @EXPORT_OK);
-$VERSION = "1.04";
+$VERSION = "1.05";
$XS_VERSION = "1.03";
use Carp;
==== //depot/perl/ext/Opcode/Safe.pm#14 (text) ====
Index: perl/ext/Opcode/Safe.pm
--- perl/ext/Opcode/Safe.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/Opcode/Safe.pm Thu Jun 28 21:45:05 2001
@@ -3,7 +3,7 @@
use 5.003_11;
use strict;
-our $VERSION = "2.06";
+our $VERSION = "2.07";
use Carp;
==== //depot/perl/ext/Thread/Thread.pm#19 (text) ====
Index: perl/ext/Thread/Thread.pm
--- perl/ext/Thread/Thread.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/Thread/Thread.pm Thu Jun 28 21:45:05 2001
@@ -3,7 +3,7 @@
use XSLoader ();
our($VERSION, @ISA, @EXPORT);
-$VERSION = "1.0";
+$VERSION = "1.01";
@ISA = qw(Exporter);
@EXPORT_OK = qw(yield cond_signal cond_broadcast cond_wait async);
==== //depot/perl/ext/attrs/attrs.pm#10 (text) ====
Index: perl/ext/attrs/attrs.pm
--- perl/ext/attrs/attrs.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/attrs/attrs.pm Thu Jun 28 21:45:05 2001
@@ -1,7 +1,7 @@
package attrs;
use XSLoader ();
-$VERSION = "1.0";
+$VERSION = "1.01";
=head1 NAME
==== //depot/perl/ext/re/re.pm#15 (text) ====
Index: perl/ext/re/re.pm
--- perl/ext/re/re.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/ext/re/re.pm Thu Jun 28 21:45:05 2001
@@ -1,6 +1,6 @@
package re;
-$VERSION = 0.02;
+our $VERSION = 0.03;
=head1 NAME
==== //depot/perl/lib/AutoSplit.pm#27 (text) ====
Index: perl/lib/AutoSplit.pm
--- perl/lib/AutoSplit.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/AutoSplit.pm Thu Jun 28 21:45:05 2001
@@ -11,7 +11,7 @@
our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
$CheckForAutoloader, $CheckModTime);
-$VERSION = "1.0305";
+$VERSION = "1.0306";
@ISA = qw(Exporter);
@EXPORT = qw(&autosplit &autosplit_lib_modules);
@EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
==== //depot/perl/lib/Benchmark.pm#23 (text) ====
Index: perl/lib/Benchmark.pm
--- perl/lib/Benchmark.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Benchmark.pm Thu Jun 28 21:45:05 2001
@@ -362,7 +362,7 @@
@EXPORT_OK=qw(timesum cmpthese countit
clearcache clearallcache disablecache enablecache);
-$VERSION = 1.00;
+$VERSION = 1.01;
&init;
==== //depot/perl/lib/CGI/Pretty.pm#6 (text) ====
Index: perl/lib/CGI/Pretty.pm
--- perl/lib/CGI/Pretty.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/CGI/Pretty.pm Thu Jun 28 21:45:05 2001
@@ -10,7 +10,7 @@
use strict;
use CGI ();
-$CGI::Pretty::VERSION = '1.05';
+$CGI::Pretty::VERSION = '1.06';
$CGI::DefaultClass = __PACKAGE__;
$CGI::Pretty::AutoloadClass = 'CGI';
@CGI::Pretty::ISA = qw( CGI );
==== //depot/perl/lib/CPAN/Nox.pm#12 (text) ====
Index: perl/lib/CPAN/Nox.pm
--- perl/lib/CPAN/Nox.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/CPAN/Nox.pm Thu Jun 28 21:45:05 2001
@@ -9,7 +9,7 @@
use base 'Exporter';
use CPAN;
-$VERSION = "1.00";
+$VERSION = "1.01";
$CPAN::META->has_inst('MD5','no');
$CPAN::META->has_inst('LWP','no');
$CPAN::META->has_inst('Compress::Zlib','no');
==== //depot/perl/lib/Exporter.pm#16 (text) ====
Index: perl/lib/Exporter.pm
--- perl/lib/Exporter.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Exporter.pm Thu Jun 28 21:45:05 2001
@@ -8,7 +8,7 @@
our $Debug = 0;
our $ExportLevel = 0;
our $Verbose ||= 0;
-our $VERSION = '5.562';
+our $VERSION = '5.563';
sub export_to_level {
require Exporter::Heavy;
==== //depot/perl/lib/ExtUtils/Command.pm#10 (text) ====
Index: perl/lib/ExtUtils/Command.pm
--- perl/lib/ExtUtils/Command.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/ExtUtils/Command.pm Thu Jun 28 21:45:05 2001
@@ -12,7 +12,7 @@
our(@ISA, @EXPORT, $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f);
-$VERSION = '1.01';
+$VERSION = '1.02';
=head1 NAME
==== //depot/perl/lib/ExtUtils/MakeMaker.pm#59 (text) ====
Index: perl/lib/ExtUtils/MakeMaker.pm
--- perl/lib/ExtUtils/MakeMaker.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/ExtUtils/MakeMaker.pm Thu Jun 28 21:45:05 2001
@@ -2,7 +2,7 @@
package ExtUtils::MakeMaker;
-$VERSION = "5.45";
+$VERSION = "5.46";
$Version_OK = "5.17"; # Makefiles older than $Version_OK will die
# (Will be checked from MakeMaker version 4.13 onwards)
($Revision = substr(q$Revision: 1.222 $, 10)) =~ s/\s+$//;
==== //depot/perl/lib/ExtUtils/Packlist.pm#6 (text) ====
Index: perl/lib/ExtUtils/Packlist.pm
--- perl/lib/ExtUtils/Packlist.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/ExtUtils/Packlist.pm Thu Jun 28 21:45:05 2001
@@ -3,7 +3,7 @@
use 5.005_64;
use strict;
use Carp qw();
-our $VERSION = '0.03';
+our $VERSION = '0.04';
# Used for generating filehandle globs. IO::File might not be available!
my $fhname = "FH1";
==== //depot/perl/lib/File/Compare.pm#12 (text) ====
Index: perl/lib/File/Compare.pm
--- perl/lib/File/Compare.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/File/Compare.pm Thu Jun 28 21:45:05 2001
@@ -8,7 +8,7 @@
require Exporter;
use Carp;
-$VERSION = '1.1002';
+$VERSION = '1.1003';
@ISA = qw(Exporter);
@EXPORT = qw(compare);
@EXPORT_OK = qw(cmp compare_text);
==== //depot/perl/lib/FileHandle.pm#12 (text) ====
Index: perl/lib/FileHandle.pm
--- perl/lib/FileHandle.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/FileHandle.pm Thu Jun 28 21:45:05 2001
@@ -4,7 +4,7 @@
use strict;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
-$VERSION = "2.00";
+$VERSION = "2.01";
require IO::File;
@ISA = qw(IO::File);
==== //depot/perl/lib/Math/Complex.pm#26 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Math/Complex.pm Thu Jun 28 21:45:05 2001
@@ -9,7 +9,7 @@
our($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $Inf);
-$VERSION = 1.31;
+$VERSION = 1.32;
BEGIN {
unless ($^O eq 'unicosmk') {
==== //depot/perl/lib/Math/Trig.pm#17 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Math/Trig.pm Thu Jun 28 21:45:05 2001
@@ -16,7 +16,7 @@
@ISA = qw(Exporter);
-$VERSION = 1.00;
+$VERSION = 1.01;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
==== //depot/perl/lib/Pod/Html.pm#45 (text) ====
Index: perl/lib/Pod/Html.pm
--- perl/lib/Pod/Html.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Pod/Html.pm Thu Jun 28 21:45:05 2001
@@ -3,7 +3,7 @@
require Exporter;
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = 1.03;
+$VERSION = 1.04;
@ISA = qw(Exporter);
@EXPORT = qw(pod2html htmlify);
==== //depot/perl/lib/Symbol.pm#9 (text) ====
Index: perl/lib/Symbol.pm
--- perl/lib/Symbol.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Symbol.pm Thu Jun 28 21:45:05 2001
@@ -70,7 +70,7 @@
@EXPORT = qw(gensym ungensym qualify qualify_to_ref);
@EXPORT_OK = qw(delete_package);
-$VERSION = 1.02;
+$VERSION = 1.03;
my $genpkg = "Symbol::";
my $genseq = 0;
==== //depot/perl/lib/Text/ParseWords.pm#13 (text) ====
Index: perl/lib/Text/ParseWords.pm
--- perl/lib/Text/ParseWords.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Text/ParseWords.pm Thu Jun 28 21:45:05 2001
@@ -1,7 +1,7 @@
package Text::ParseWords;
use vars qw($VERSION @ISA @EXPORT $PERL_SINGLE_QUOTE);
-$VERSION = "3.2";
+$VERSION = "3.21";
require 5.000;
==== //depot/perl/lib/Text/Soundex.pm#9 (text) ====
Index: perl/lib/Text/Soundex.pm
--- perl/lib/Text/Soundex.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Text/Soundex.pm Thu Jun 28 21:45:05 2001
@@ -5,7 +5,7 @@
@ISA = qw(Exporter);
@EXPORT = qw(&soundex $soundex_nocode);
-$VERSION = '1.0';
+$VERSION = '1.01';
# $Id: soundex.pl,v 1.2 1994/03/24 00:30:27 mike Exp $
#
==== //depot/perl/lib/Text/Tabs.pm#10 (text) ====
==== //depot/perl/lib/Tie/Array.pm#11 (text) ====
Index: perl/lib/Tie/Array.pm
--- perl/lib/Tie/Array.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/Tie/Array.pm Thu Jun 28 21:45:05 2001
@@ -3,7 +3,7 @@
use 5.005_64;
use strict;
use Carp;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
# Pod documentation after __END__ below.
==== //depot/perl/lib/attributes.pm#8 (text) ====
Index: perl/lib/attributes.pm
--- perl/lib/attributes.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/attributes.pm Thu Jun 28 21:45:05 2001
@@ -1,6 +1,6 @@
package attributes;
-$VERSION = 0.03;
+our $VERSION = 0.04;
@EXPORT_OK = qw(get reftype);
@EXPORT = ();
==== //depot/perl/lib/autouse.pm#13 (text) ====
Index: perl/lib/autouse.pm
--- perl/lib/autouse.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/autouse.pm Thu Jun 28 21:45:05 2001
@@ -3,7 +3,7 @@
#use strict; # debugging only
use 5.003_90; # ->can, for my $var
-$autouse::VERSION = '1.02';
+$autouse::VERSION = '1.03';
$autouse::DEBUG ||= 0;
==== //depot/perl/lib/base.pm#14 (text) ====
Index: perl/lib/base.pm
--- perl/lib/base.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/base.pm Thu Jun 28 21:45:05 2001
@@ -45,7 +45,7 @@
package base;
use 5.005_64;
-our $VERSION = "1.01";
+our $VERSION = "1.02";
sub import {
my $class = shift;
==== //depot/perl/lib/constant.pm#14 (text) ====
Index: perl/lib/constant.pm
--- perl/lib/constant.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/constant.pm Thu Jun 28 21:45:05 2001
@@ -5,7 +5,7 @@
use warnings::register;
our($VERSION, %declared);
-$VERSION = '1.02';
+$VERSION = '1.03';
#=======================================================================
==== //depot/perl/lib/fields.pm#17 (text) ====
Index: perl/lib/fields.pm
--- perl/lib/fields.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/fields.pm Thu Jun 28 21:45:05 2001
@@ -133,7 +133,7 @@
use warnings::register;
our(%attr, $VERSION);
-$VERSION = "1.01";
+$VERSION = "1.02";
# some constants
sub _PUBLIC () { 1 }
==== //depot/perl/lib/strict.pm#14 (text) ====
Index: perl/lib/strict.pm
--- perl/lib/strict.pm.~1~ Thu Jun 28 21:45:05 2001
+++ perl/lib/strict.pm Thu Jun 28 21:45:05 2001
@@ -90,7 +90,7 @@
=cut
-$strict::VERSION = "1.01";
+$strict::VERSION = "1.02";
my %bitmask = (
refs => 0x00000002,
End of Patch.
