Add the fruits of Larry Shatzer's version verifying script.

(There are some straddlers, but they will be fixed in the
upcoming releases of the modules.)

p4raw-id: //depot/perl@13034

29 files changed, 74 insertions, 1 deletions

diff --git a/bytecode.pl b/bytecode.pl
index 0e28020e99..068d1ee3ab 100644
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -44,6 +44,9 @@ unlink "ext/ByteLoader/byterun.c", "ext/ByteLoader/byterun.h", "ext/B/B/Asmdata.
 open(ASMDATA_PM, ">ext/B/B/Asmdata.pm") or die "ext/B/B/Asmdata.pm: $!";
 print ASMDATA_PM $perl_header, <<'EOT';
 package B::Asmdata;
+
+our $VERSION = '1.00';
+
 use Exporter;
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name);
diff --git a/ext/B/B.pm b/ext/B/B.pm
index 534182fe4b..06f99c49fb 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -6,6 +6,9 @@
 #      License or the Artistic License, as specified in the README file.
 #
 package B;
+
+our $VERSION = '1.00';
+
 use XSLoader ();
 require Exporter;
 @ISA = qw(Exporter);
diff --git a/ext/B/B/Asmdata.pm b/ext/B/B/Asmdata.pm
index dc176be962..607071ff31 100644
--- a/ext/B/B/Asmdata.pm
+++ b/ext/B/B/Asmdata.pm
@@ -9,6 +9,9 @@
 # This file is autogenerated from bytecode.pl. Changes made here will be lost.
 #
 package B::Asmdata;
+
+our $VERSION = '1.00';
+
 use Exporter;
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name);
diff --git a/ext/B/B/Bblock.pm b/ext/B/B/Bblock.pm
index fe7fc52139..9bef3ac3e1 100644
--- a/ext/B/B/Bblock.pm
+++ b/ext/B/B/Bblock.pm
@@ -1,4 +1,7 @@
 package B::Bblock;
+
+our $VERSION = '1.00';
+
 use Exporter ();
 @ISA = "Exporter";
 @EXPORT_OK = qw(find_leaders);
diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm
index 1954116298..dd49c029ea 100644
--- a/ext/B/B/Bytecode.pm
+++ b/ext/B/B/Bytecode.pm
@@ -7,6 +7,8 @@
 #
 package B::Bytecode;
 
+our $VERSION = '1.00';
+
 use strict;
 use Carp;
 use B qw(main_cv main_root main_start comppadlist
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index bcc6f93453..d3c9f5b05d 100644
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -6,6 +6,9 @@
 #      License or the Artistic License, as specified in the README file.
 #
 package B::C::Section;
+
+our $VERSION = '1.00';
+
 use B ();
 use base B::Section;
 
diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index 51922eeb2b..14ee6cf322 100644
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -6,6 +6,9 @@
 #      License or the Artistic License, as specified in the README file.
 #
 package B::CC;
+
+our $VERSION = '1.00';
+
 use Config;
 use strict;
 use B qw(main_start main_root class comppadlist peekop svref_2object
diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm
index c69bfbfbf5..f9f8c092f7 100644
--- a/ext/B/B/Debug.pm
+++ b/ext/B/B/Debug.pm
@@ -1,4 +1,7 @@
 package B::Debug;
+
+our $VERSION = '1.00';
+
 use strict;
 use B qw(peekop class walkoptree walkoptree_exec
          main_start main_root cstring sv_undef);
diff --git a/ext/B/B/Disassembler.pm b/ext/B/B/Disassembler.pm
index 212532b9ce..7fc4ac7773 100644
--- a/ext/B/B/Disassembler.pm
+++ b/ext/B/B/Disassembler.pm
@@ -5,6 +5,9 @@
 #      You may distribute under the terms of either the GNU General Public
 #      License or the Artistic License, as specified in the README file.
 package B::Disassembler::BytecodeStream;
+
+our $VERSION = '1.00';
+
 use FileHandle;
 use Carp;
 use B qw(cstring cast_I32);
diff --git a/ext/B/B/Lint.pm b/ext/B/B/Lint.pm
index f5186f146c..35378efa42 100644
--- a/ext/B/B/Lint.pm
+++ b/ext/B/B/Lint.pm
@@ -1,5 +1,7 @@
 package B::Lint;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 B::Lint - Perl lint
diff --git a/ext/B/B/Showlex.pm b/ext/B/B/Showlex.pm
index 842ca3ee2b..0140c8ac51 100644
--- a/ext/B/B/Showlex.pm
+++ b/ext/B/B/Showlex.pm
@@ -1,4 +1,7 @@
 package B::Showlex;
+
+our $VERSION = '1.00';
+
 use strict;
 use B qw(svref_2object comppadlist class);
 use B::Terse ();
diff --git a/ext/B/B/Stackobj.pm b/ext/B/B/Stackobj.pm
index 0db3e33de8..b17dfb8173 100644
--- a/ext/B/B/Stackobj.pm
+++ b/ext/B/B/Stackobj.pm
@@ -6,6 +6,9 @@
 #      License or the Artistic License, as specified in the README file.
 #
 package B::Stackobj;  
+
+our $VERSION = '1.00';
+
 use Exporter ();
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(set_callback T_UNKNOWN T_DOUBLE T_INT VALID_UNSIGNED
diff --git a/ext/B/B/Stash.pm b/ext/B/B/Stash.pm
index f3a8247877..5e60868a28 100644
--- a/ext/B/B/Stash.pm
+++ b/ext/B/B/Stash.pm
@@ -2,6 +2,8 @@
 # vishalb@hotmail.com 
 package B::Stash;
 
+our $VERSION = '1.00';
+
 =pod
 
 =head1 NAME
diff --git a/ext/B/B/Terse.pm b/ext/B/B/Terse.pm
index 4c31a66374..3abe6156de 100644
--- a/ext/B/B/Terse.pm
+++ b/ext/B/B/Terse.pm
@@ -1,4 +1,7 @@
 package B::Terse;
+
+our $VERSION = '1.00';
+
 use strict;
 use B qw(peekop class walkoptree walkoptree_exec walkoptree_slow
 	 main_start main_root cstring svref_2object SVf_IVisUV);
diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm
index b4078b8bd3..1f3e247a35 100644
--- a/ext/B/B/Xref.pm
+++ b/ext/B/B/Xref.pm
@@ -1,5 +1,7 @@
 package B::Xref;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 B::Xref - Generates cross reference reports for Perl programs
diff --git a/ext/B/O.pm b/ext/B/O.pm
index d72d31fcf6..50a445cf49 100644
--- a/ext/B/O.pm
+++ b/ext/B/O.pm
@@ -1,4 +1,7 @@
 package O;
+
+our $VERSION = '1.00';
+
 use B qw(minus_c save_BEGINs);
 use Carp;    
 
diff --git a/ext/Encode/Encode/Tcl.pm b/ext/Encode/Encode/Tcl.pm
index 460a521bb9..5d3ad1b5e6 100644
--- a/ext/Encode/Encode/Tcl.pm
+++ b/ext/Encode/Encode/Tcl.pm
@@ -1,4 +1,7 @@
 package Encode::Tcl;
+
+our $VERSION = '1.00';
+
 use strict;
 use Encode qw(find_encoding);
 use base 'Encode::Encoding';
diff --git a/ext/Opcode/ops.pm b/ext/Opcode/ops.pm
index 9b553b7634..8a7a200665 100644
--- a/ext/Opcode/ops.pm
+++ b/ext/Opcode/ops.pm
@@ -1,5 +1,7 @@
 package ops;
 
+our $VERSION = '1.00';
+
 use Opcode qw(opmask_add opset invert_opset);
 
 sub import {
diff --git a/ext/Thread/Thread/Queue.pm b/ext/Thread/Thread/Queue.pm
index 8ace16d48b..272a2a3952 100644
--- a/ext/Thread/Thread/Queue.pm
+++ b/ext/Thread/Thread/Queue.pm
@@ -1,4 +1,7 @@
 package Thread::Queue;
+
+our $VERSION = '1.00';
+
 use Thread qw(cond_wait cond_broadcast);
 
 =head1 NAME
diff --git a/ext/Thread/Thread/Semaphore.pm b/ext/Thread/Thread/Semaphore.pm
index 3cd6338d4d..2a8ec25b65 100644
--- a/ext/Thread/Thread/Semaphore.pm
+++ b/ext/Thread/Thread/Semaphore.pm
@@ -1,6 +1,8 @@
 package Thread::Semaphore;
 use Thread qw(cond_wait cond_broadcast);
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 Thread::Semaphore - thread-safe semaphores
diff --git a/ext/Thread/Thread/Signal.pm b/ext/Thread/Thread/Signal.pm
index f5f03db8a8..d8f3627470 100644
--- a/ext/Thread/Thread/Signal.pm
+++ b/ext/Thread/Thread/Signal.pm
@@ -1,6 +1,8 @@
 package Thread::Signal;
 use Thread qw(async);
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 Thread::Signal - Start a thread which runs signal handlers reliably
diff --git a/ext/Thread/Thread/Specific.pm b/ext/Thread/Thread/Specific.pm
index a6271a4ae4..ed7cbf893c 100644
--- a/ext/Thread/Thread/Specific.pm
+++ b/ext/Thread/Thread/Specific.pm
@@ -1,5 +1,7 @@
 package Thread::Specific;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 Thread::Specific - thread-specific keys
diff --git a/lib/ExtUtils/MM_NW5.pm b/lib/ExtUtils/MM_NW5.pm
index 870a64bac2..c4b1be92f3 100644
--- a/lib/ExtUtils/MM_NW5.pm
+++ b/lib/ExtUtils/MM_NW5.pm
@@ -1,5 +1,7 @@
 package ExtUtils::MM_NW5;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 ExtUtils::MM_NW5 - methods to override UN*X behaviour in ExtUtils::MakeMaker
diff --git a/lib/Locale/Constants.pm b/lib/Locale/Constants.pm
index cc11969c2c..9dfe1dbcbb 100644
--- a/lib/Locale/Constants.pm
+++ b/lib/Locale/Constants.pm
@@ -18,6 +18,8 @@ use constant LOCALE_CODE_ALPHA_2 => 1;
 use constant LOCALE_CODE_ALPHA_3 => 2;
 use constant LOCALE_CODE_NUMERIC => 3;
 
+$VERSION = '1.00';
+
 use constant LOCALE_CODE_DEFAULT => LOCALE_CODE_ALPHA_2;
 
 1;
diff --git a/lib/vmsish.pm b/lib/vmsish.pm
index bbaf4f79f4..c2d97c13ae 100644
--- a/lib/vmsish.pm
+++ b/lib/vmsish.pm
@@ -1,5 +1,7 @@
 package vmsish;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 vmsish - Perl pragma to control VMS-specific language features
diff --git a/os2/OS2/REXX/DLL/DLL.pm b/os2/OS2/REXX/DLL/DLL.pm
index b1503a6992..f9be9e433c 100644
--- a/os2/OS2/REXX/DLL/DLL.pm
+++ b/os2/OS2/REXX/DLL/DLL.pm
@@ -1,5 +1,7 @@
 package OS2::DLL;
 
+our $VERSION = '1.00';
+
 use Carp;
 use DynaLoader;
 
diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm
index 375e962c67..42c15c2a3c 100644
--- a/vms/ext/Filespec.pm
+++ b/vms/ext/Filespec.pm
@@ -1,7 +1,7 @@
 #   Perl hooks into the routines in vms.c for interconversion
 #   of VMS and Unix file specification syntax.
 #
-#   Version:  1.1
+#   Version:  see $VERSION below
 #   Author:   Charles Bailey  bailey@newman.upenn.edu
 #   Revised:  08-Mar-1995
 
@@ -128,6 +128,7 @@ This document was last revised 22-Feb-1996, for Perl 5.002.
 package VMS::Filespec;
 require 5.002;
 
+our $VERSION = '1.1';
 
 # If you want to use this package on a non-VMS system,
 # uncomment the following line.
diff --git a/win32/FindExt.pm b/win32/FindExt.pm
index 831250313d..30392687d1 100644
--- a/win32/FindExt.pm
+++ b/win32/FindExt.pm
@@ -1,4 +1,7 @@
 package FindExt;
+
+our $VERSION = '1.00';
+
 use strict;
 use File::Find;
 use File::Basename;
diff --git a/wince/FindExt.pm b/wince/FindExt.pm
index 831250313d..30392687d1 100644
--- a/wince/FindExt.pm
+++ b/wince/FindExt.pm
@@ -1,4 +1,7 @@
 package FindExt;
+
+our $VERSION = '1.00';
+
 use strict;
 use File::Find;
 use File::Basename;