This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add the fruits of Larry Shatzer's version verifying script.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 16 Nov 2001 00:38:41 +0000 (00:38 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 16 Nov 2001 00:38:41 +0000 (00:38 +0000)
(There are some straddlers, but they will be fixed in the
upcoming releases of the modules.)

p4raw-id: //depot/perl@13034

29 files changed:
bytecode.pl
ext/B/B.pm
ext/B/B/Asmdata.pm
ext/B/B/Bblock.pm
ext/B/B/Bytecode.pm
ext/B/B/C.pm
ext/B/B/CC.pm
ext/B/B/Debug.pm
ext/B/B/Disassembler.pm
ext/B/B/Lint.pm
ext/B/B/Showlex.pm
ext/B/B/Stackobj.pm
ext/B/B/Stash.pm
ext/B/B/Terse.pm
ext/B/B/Xref.pm
ext/B/O.pm
ext/Encode/Encode/Tcl.pm
ext/Opcode/ops.pm
ext/Thread/Thread/Queue.pm
ext/Thread/Thread/Semaphore.pm
ext/Thread/Thread/Signal.pm
ext/Thread/Thread/Specific.pm
lib/ExtUtils/MM_NW5.pm
lib/Locale/Constants.pm
lib/vmsish.pm
os2/OS2/REXX/DLL/DLL.pm
vms/ext/Filespec.pm
win32/FindExt.pm
wince/FindExt.pm

index 0e28020..068d1ee 100644 (file)
@@ -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);
index 534182f..06f99c4 100644 (file)
@@ -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);
index dc176be..607071f 100644 (file)
@@ -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);
index fe7fc52..9bef3ac 100644 (file)
@@ -1,4 +1,7 @@
 package B::Bblock;
+
+our $VERSION = '1.00';
+
 use Exporter ();
 @ISA = "Exporter";
 @EXPORT_OK = qw(find_leaders);
index 1954116..dd49c02 100644 (file)
@@ -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
index bcc6f93..d3c9f5b 100644 (file)
@@ -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;
 
index 51922ee..14ee6cf 100644 (file)
@@ -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
index c69bfbf..f9f8c09 100644 (file)
@@ -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);
index 212532b..7fc4ac7 100644 (file)
@@ -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);
index f5186f1..35378ef 100644 (file)
@@ -1,5 +1,7 @@
 package B::Lint;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 B::Lint - Perl lint
index 842ca3e..0140c8a 100644 (file)
@@ -1,4 +1,7 @@
 package B::Showlex;
+
+our $VERSION = '1.00';
+
 use strict;
 use B qw(svref_2object comppadlist class);
 use B::Terse ();
index 0db3e33..b17dfb8 100644 (file)
@@ -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
index f3a8247..5e60868 100644 (file)
@@ -2,6 +2,8 @@
 # vishalb@hotmail.com 
 package B::Stash;
 
+our $VERSION = '1.00';
+
 =pod
 
 =head1 NAME
index 4c31a66..3abe615 100644 (file)
@@ -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);
index b4078b8..1f3e247 100644 (file)
@@ -1,5 +1,7 @@
 package B::Xref;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 B::Xref - Generates cross reference reports for Perl programs
index d72d31f..50a445c 100644 (file)
@@ -1,4 +1,7 @@
 package O;
+
+our $VERSION = '1.00';
+
 use B qw(minus_c save_BEGINs);
 use Carp;    
 
index 460a521..5d3ad1b 100644 (file)
@@ -1,4 +1,7 @@
 package Encode::Tcl;
+
+our $VERSION = '1.00';
+
 use strict;
 use Encode qw(find_encoding);
 use base 'Encode::Encoding';
index 9b553b7..8a7a200 100644 (file)
@@ -1,5 +1,7 @@
 package ops;
 
+our $VERSION = '1.00';
+
 use Opcode qw(opmask_add opset invert_opset);
 
 sub import {
index 8ace16d..272a2a3 100644 (file)
@@ -1,4 +1,7 @@
 package Thread::Queue;
+
+our $VERSION = '1.00';
+
 use Thread qw(cond_wait cond_broadcast);
 
 =head1 NAME
index 3cd6338..2a8ec25 100644 (file)
@@ -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
index f5f03db..d8f3627 100644 (file)
@@ -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
index a6271a4..ed7cbf8 100644 (file)
@@ -1,5 +1,7 @@
 package Thread::Specific;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 Thread::Specific - thread-specific keys
index 870a64b..c4b1be9 100644 (file)
@@ -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
index cc11969..9dfe1db 100644 (file)
@@ -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;
index bbaf4f7..c2d97c1 100644 (file)
@@ -1,5 +1,7 @@
 package vmsish;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 vmsish - Perl pragma to control VMS-specific language features
index b1503a6..f9be9e4 100644 (file)
@@ -1,5 +1,7 @@
 package OS2::DLL;
 
+our $VERSION = '1.00';
+
 use Carp;
 use DynaLoader;
 
index 375e962..42c15c2 100644 (file)
@@ -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.
index 8312503..3039268 100644 (file)
@@ -1,4 +1,7 @@
 package FindExt;
+
+our $VERSION = '1.00';
+
 use strict;
 use File::Find;
 use File::Basename;
index 8312503..3039268 100644 (file)
@@ -1,4 +1,7 @@
 package FindExt;
+
+our $VERSION = '1.00';
+
 use strict;
 use File::Find;
 use File::Basename;