PERFORCE change 13034 for review

Change 13034 by jhi@alpha on 2001/11/16 00:38:41

	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.)

Affected files ...

.... //depot/perl/bytecode.pl#39 edit
.... //depot/perl/ext/B/B.pm#41 edit
.... //depot/perl/ext/B/B/Asmdata.pm#21 edit
.... //depot/perl/ext/B/B/Bblock.pm#11 edit
.... //depot/perl/ext/B/B/Bytecode.pm#27 edit
.... //depot/perl/ext/B/B/C.pm#62 edit
.... //depot/perl/ext/B/B/CC.pm#40 edit
.... //depot/perl/ext/B/B/Debug.pm#17 edit
.... //depot/perl/ext/B/B/Disassembler.pm#6 edit
.... //depot/perl/ext/B/B/Lint.pm#9 edit
.... //depot/perl/ext/B/B/Showlex.pm#4 edit
.... //depot/perl/ext/B/B/Stackobj.pm#10 edit
.... //depot/perl/ext/B/B/Stash.pm#9 edit
.... //depot/perl/ext/B/B/Terse.pm#14 edit
.... //depot/perl/ext/B/B/Xref.pm#10 edit
.... //depot/perl/ext/B/O.pm#13 edit
.... //depot/perl/ext/Encode/Encode/Tcl.pm#11 edit
.... //depot/perl/ext/Opcode/ops.pm#7 edit
.... //depot/perl/ext/Thread/Thread/Queue.pm#9 edit
.... //depot/perl/ext/Thread/Thread/Semaphore.pm#8 edit
.... //depot/perl/ext/Thread/Thread/Signal.pm#2 edit
.... //depot/perl/ext/Thread/Thread/Specific.pm#9 edit
.... //depot/perl/lib/ExtUtils/MM_NW5.pm#5 edit
.... //depot/perl/lib/Locale/Constants.pm#4 edit
.... //depot/perl/lib/vmsish.pm#2 edit
.... //depot/perl/os2/OS2/REXX/DLL/DLL.pm#4 edit
.... //depot/perl/vms/ext/Filespec.pm#9 edit
.... //depot/perl/win32/FindExt.pm#4 edit
.... //depot/perl/wince/FindExt.pm#2 edit

Differences ...

==== //depot/perl/bytecode.pl#39 (text) ====
Index: perl/bytecode.pl
--- perl/bytecode.pl.~1~	Thu Nov 15 17:45:05 2001
+++ perl/bytecode.pl	Thu Nov 15 17:45:05 2001
@@ -44,6 +44,9 @@
 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);

==== //depot/perl/ext/B/B.pm#41 (text) ====
Index: perl/ext/B/B.pm
--- perl/ext/B/B.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B.pm	Thu Nov 15 17:45:05 2001
@@ -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);

==== //depot/perl/ext/B/B/Asmdata.pm#21 (text+w) ====
Index: perl/ext/B/B/Asmdata.pm
--- perl/ext/B/B/Asmdata.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Asmdata.pm	Thu Nov 15 17:45:05 2001
@@ -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);

==== //depot/perl/ext/B/B/Bblock.pm#11 (text) ====
Index: perl/ext/B/B/Bblock.pm
--- perl/ext/B/B/Bblock.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Bblock.pm	Thu Nov 15 17:45:05 2001
@@ -1,4 +1,7 @@
 package B::Bblock;
+
+our $VERSION = '1.00';
+
 use Exporter ();
 @ISA = "Exporter";
 @EXPORT_OK = qw(find_leaders);

==== //depot/perl/ext/B/B/Bytecode.pm#27 (text) ====
Index: perl/ext/B/B/Bytecode.pm
--- perl/ext/B/B/Bytecode.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Bytecode.pm	Thu Nov 15 17:45:05 2001
@@ -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

==== //depot/perl/ext/B/B/C.pm#62 (text) ====
Index: perl/ext/B/B/C.pm
--- perl/ext/B/B/C.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/C.pm	Thu Nov 15 17:45:05 2001
@@ -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;
 

==== //depot/perl/ext/B/B/CC.pm#40 (text) ====
Index: perl/ext/B/B/CC.pm
--- perl/ext/B/B/CC.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/CC.pm	Thu Nov 15 17:45:05 2001
@@ -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

==== //depot/perl/ext/B/B/Debug.pm#17 (text) ====
Index: perl/ext/B/B/Debug.pm
--- perl/ext/B/B/Debug.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Debug.pm	Thu Nov 15 17:45:05 2001
@@ -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);

==== //depot/perl/ext/B/B/Disassembler.pm#6 (text) ====
Index: perl/ext/B/B/Disassembler.pm
--- perl/ext/B/B/Disassembler.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Disassembler.pm	Thu Nov 15 17:45:05 2001
@@ -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);

==== //depot/perl/ext/B/B/Lint.pm#9 (text) ====
Index: perl/ext/B/B/Lint.pm
--- perl/ext/B/B/Lint.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Lint.pm	Thu Nov 15 17:45:05 2001
@@ -1,5 +1,7 @@
 package B::Lint;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 B::Lint - Perl lint

==== //depot/perl/ext/B/B/Showlex.pm#4 (text) ====
Index: perl/ext/B/B/Showlex.pm
--- perl/ext/B/B/Showlex.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Showlex.pm	Thu Nov 15 17:45:05 2001
@@ -1,4 +1,7 @@
 package B::Showlex;
+
+our $VERSION = '1.00';
+
 use strict;
 use B qw(svref_2object comppadlist class);
 use B::Terse ();

==== //depot/perl/ext/B/B/Stackobj.pm#10 (text) ====
Index: perl/ext/B/B/Stackobj.pm
--- perl/ext/B/B/Stackobj.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Stackobj.pm	Thu Nov 15 17:45:05 2001
@@ -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

==== //depot/perl/ext/B/B/Stash.pm#9 (text) ====
Index: perl/ext/B/B/Stash.pm
--- perl/ext/B/B/Stash.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Stash.pm	Thu Nov 15 17:45:05 2001
@@ -2,6 +2,8 @@
 # vishalb@hotmail.com 
 package B::Stash;
 
+our $VERSION = '1.00';
+
 =pod
 
 =head1 NAME

==== //depot/perl/ext/B/B/Terse.pm#14 (text) ====
Index: perl/ext/B/B/Terse.pm
--- perl/ext/B/B/Terse.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Terse.pm	Thu Nov 15 17:45:05 2001
@@ -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);

==== //depot/perl/ext/B/B/Xref.pm#10 (text) ====
Index: perl/ext/B/B/Xref.pm
--- perl/ext/B/B/Xref.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/B/Xref.pm	Thu Nov 15 17:45:05 2001
@@ -1,5 +1,7 @@
 package B::Xref;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 B::Xref - Generates cross reference reports for Perl programs

==== //depot/perl/ext/B/O.pm#13 (text) ====
Index: perl/ext/B/O.pm
--- perl/ext/B/O.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/B/O.pm	Thu Nov 15 17:45:05 2001
@@ -1,4 +1,7 @@
 package O;
+
+our $VERSION = '1.00';
+
 use B qw(minus_c save_BEGINs);
 use Carp;    
 

==== //depot/perl/ext/Encode/Encode/Tcl.pm#11 (text) ====
Index: perl/ext/Encode/Encode/Tcl.pm
--- perl/ext/Encode/Encode/Tcl.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/Encode/Encode/Tcl.pm	Thu Nov 15 17:45:05 2001
@@ -1,4 +1,7 @@
 package Encode::Tcl;
+
+our $VERSION = '1.00';
+
 use strict;
 use Encode qw(find_encoding);
 use base 'Encode::Encoding';

==== //depot/perl/ext/Opcode/ops.pm#7 (text) ====
Index: perl/ext/Opcode/ops.pm
--- perl/ext/Opcode/ops.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/Opcode/ops.pm	Thu Nov 15 17:45:05 2001
@@ -1,5 +1,7 @@
 package ops;
 
+our $VERSION = '1.00';
+
 use Opcode qw(opmask_add opset invert_opset);
 
 sub import {

==== //depot/perl/ext/Thread/Thread/Queue.pm#9 (text) ====
Index: perl/ext/Thread/Thread/Queue.pm
--- perl/ext/Thread/Thread/Queue.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/Thread/Thread/Queue.pm	Thu Nov 15 17:45:05 2001
@@ -1,4 +1,7 @@
 package Thread::Queue;
+
+our $VERSION = '1.00';
+
 use Thread qw(cond_wait cond_broadcast);
 
 =head1 NAME

==== //depot/perl/ext/Thread/Thread/Semaphore.pm#8 (text) ====
Index: perl/ext/Thread/Thread/Semaphore.pm
--- perl/ext/Thread/Thread/Semaphore.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/Thread/Thread/Semaphore.pm	Thu Nov 15 17:45:05 2001
@@ -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

==== //depot/perl/ext/Thread/Thread/Signal.pm#2 (text) ====
Index: perl/ext/Thread/Thread/Signal.pm
--- perl/ext/Thread/Thread/Signal.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/Thread/Thread/Signal.pm	Thu Nov 15 17:45:05 2001
@@ -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

==== //depot/perl/ext/Thread/Thread/Specific.pm#9 (text) ====
Index: perl/ext/Thread/Thread/Specific.pm
--- perl/ext/Thread/Thread/Specific.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/ext/Thread/Thread/Specific.pm	Thu Nov 15 17:45:05 2001
@@ -1,5 +1,7 @@
 package Thread::Specific;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 Thread::Specific - thread-specific keys

==== //depot/perl/lib/ExtUtils/MM_NW5.pm#5 (text) ====
Index: perl/lib/ExtUtils/MM_NW5.pm
--- perl/lib/ExtUtils/MM_NW5.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/lib/ExtUtils/MM_NW5.pm	Thu Nov 15 17:45:05 2001
@@ -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

==== //depot/perl/lib/Locale/Constants.pm#4 (text) ====
Index: perl/lib/Locale/Constants.pm
--- perl/lib/Locale/Constants.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/lib/Locale/Constants.pm	Thu Nov 15 17:45:05 2001
@@ -18,6 +18,8 @@
 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;

==== //depot/perl/lib/vmsish.pm#2 (text) ====
Index: perl/lib/vmsish.pm
--- perl/lib/vmsish.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/lib/vmsish.pm	Thu Nov 15 17:45:05 2001
@@ -1,5 +1,7 @@
 package vmsish;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 vmsish - Perl pragma to control VMS-specific language features

==== //depot/perl/os2/OS2/REXX/DLL/DLL.pm#4 (text) ====
Index: perl/os2/OS2/REXX/DLL/DLL.pm
--- perl/os2/OS2/REXX/DLL/DLL.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/os2/OS2/REXX/DLL/DLL.pm	Thu Nov 15 17:45:05 2001
@@ -1,5 +1,7 @@
 package OS2::DLL;
 
+our $VERSION = '1.00';
+
 use Carp;
 use DynaLoader;
 

==== //depot/perl/vms/ext/Filespec.pm#9 (text) ====
Index: perl/vms/ext/Filespec.pm
--- perl/vms/ext/Filespec.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/vms/ext/Filespec.pm	Thu Nov 15 17:45:05 2001
@@ -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 @@
 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.

==== //depot/perl/win32/FindExt.pm#4 (text) ====
Index: perl/win32/FindExt.pm
--- perl/win32/FindExt.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/win32/FindExt.pm	Thu Nov 15 17:45:05 2001
@@ -1,4 +1,7 @@
 package FindExt;
+
+our $VERSION = '1.00';
+
 use strict;
 use File::Find;
 use File::Basename;

==== //depot/perl/wince/FindExt.pm#2 (text) ====
Index: perl/wince/FindExt.pm
--- perl/wince/FindExt.pm.~1~	Thu Nov 15 17:45:05 2001
+++ perl/wince/FindExt.pm	Thu Nov 15 17:45:05 2001
@@ -1,4 +1,7 @@
 package FindExt;
+
+our $VERSION = '1.00';
+
 use strict;
 use File::Find;
 use File::Basename;
End of Patch.

• PERFORCE change 13034 for review by Jarkko Hietaniemi