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

diff --git a/bytecode.pl b/bytecode.pl
index 0e28020..068d1ee 100644 (file)
--- 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 534182f..06f99c4 100644 (file)
--- 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 dc176be..607071f 100644 (file)
--- 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 fe7fc52..9bef3ac 100644 (file)
--- 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 1954116..dd49c02 100644 (file)
--- 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 bcc6f93..d3c9f5b 100644 (file)
--- 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 51922ee..14ee6cf 100644 (file)
--- 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 c69bfbf..f9f8c09 100644 (file)
--- 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 212532b..7fc4ac7 100644 (file)
--- 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 f5186f1..35378ef 100644 (file)
--- 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 842ca3e..0140c8a 100644 (file)
--- 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 0db3e33..b17dfb8 100644 (file)
--- 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 f3a8247..5e60868 100644 (file)
--- 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 4c31a66..3abe615 100644 (file)
--- 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 b4078b8..1f3e247 100644 (file)
--- 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 d72d31f..50a445c 100644 (file)
--- 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 460a521..5d3ad1b 100644 (file)
--- 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 9b553b7..8a7a200 100644 (file)
--- 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 8ace16d..272a2a3 100644 (file)
--- 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 3cd6338..2a8ec25 100644 (file)
--- 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 f5f03db..d8f3627 100644 (file)
--- 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 a6271a4..ed7cbf8 100644 (file)
--- 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 870a64b..c4b1be9 100644 (file)
--- 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 cc11969..9dfe1db 100644 (file)
--- 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 bbaf4f7..c2d97c1 100644 (file)
--- 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 b1503a6..f9be9e4 100644 (file)
--- 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 375e962..42c15c2 100644 (file)
--- 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 8312503..3039268 100644 (file)
--- 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 8312503..3039268 100644 (file)
--- 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;