From: Jarkko Hietaniemi Date: Fri, 16 Nov 2001 00:38:41 +0000 (+0000) Subject: Add the fruits of Larry Shatzer's version verifying script. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28b605d8910b6ca7063fcd3cd10e0b471b6b8c9b;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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;