From 1a388de21de28bbf64a07977ce653bfe30e542ba Mon Sep 17 00:00:00 2001
From: short <>
Date: Sat, 27 Sep 2003 12:50:38 +0000
Subject: [PATCH] CVS_ID

---
 CV.html.pl                        | 7 +++----
 Redirect.pl                       | 5 ++---
 SendMsg.pl                        | 5 ++---
 WebConfig.pm                      | 3 ++-
 autogen.pl                        | 3 +--
 have_js.js.pl                     | 7 +++----
 project/ChangeLog.txt.pl          | 5 ++---
 project/captive/Preview.html.pl   | 5 ++---
 project/captive/Resources.html.pl | 5 ++---
 project/captive/Thanks.html.pl    | 5 ++---
 project/captive/doc/Index.html.pl | 5 ++---
 project/checkListItem.pl          | 6 +++---
 12 files changed, 26 insertions(+), 35 deletions(-)

diff --git a/CV.html.pl b/CV.html.pl
index 69a22c8..8c8d94e 100755
--- a/CV.html.pl
+++ b/CV.html.pl
@@ -18,11 +18,10 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
-package Index;
+package CV;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/Redirect.pl b/Redirect.pl
index 6b51f62..327ef14 100755
--- a/Redirect.pl
+++ b/Redirect.pl
@@ -20,9 +20,8 @@
 
 package Redirect;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/SendMsg.pl b/SendMsg.pl
index c480be3..08ab08e 100755
--- a/SendMsg.pl
+++ b/SendMsg.pl
@@ -20,9 +20,8 @@
 
 package SendMsg;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/WebConfig.pm b/WebConfig.pm
index 71f3a51..e13794c 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -20,8 +20,9 @@
 
 package WebConfig;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION);
+use vars qw($VERSION $CVS_ID);
 $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+$CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/autogen.pl b/autogen.pl
index 7f0bc73..365c861 100755
--- a/autogen.pl
+++ b/autogen.pl
@@ -19,8 +19,7 @@
 
 
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 use strict;
 use warnings;
 
diff --git a/have_js.js.pl b/have_js.js.pl
index 3ae375d..efc19d4 100755
--- a/have_js.js.pl
+++ b/have_js.js.pl
@@ -18,11 +18,10 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
-package Index;
+package have_js;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/project/ChangeLog.txt.pl b/project/ChangeLog.txt.pl
index 6bbfb41..86cb9b6 100755
--- a/project/ChangeLog.txt.pl
+++ b/project/ChangeLog.txt.pl
@@ -20,9 +20,8 @@
 
 package project::ChangeLog;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/project/captive/Preview.html.pl b/project/captive/Preview.html.pl
index a0856b6..6eb2b27 100755
--- a/project/captive/Preview.html.pl
+++ b/project/captive/Preview.html.pl
@@ -20,9 +20,8 @@
 
 package project::captive::Preview;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/project/captive/Resources.html.pl b/project/captive/Resources.html.pl
index 51fb5cb..c24ec8b 100755
--- a/project/captive/Resources.html.pl
+++ b/project/captive/Resources.html.pl
@@ -20,9 +20,8 @@
 
 package project::captive::Resources;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/project/captive/Thanks.html.pl b/project/captive/Thanks.html.pl
index f4319ea..41a8b73 100755
--- a/project/captive/Thanks.html.pl
+++ b/project/captive/Thanks.html.pl
@@ -20,9 +20,8 @@
 
 package project::captive::Thanks;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/project/captive/doc/Index.html.pl b/project/captive/doc/Index.html.pl
index 6bb3b89..95bca2d 100755
--- a/project/captive/doc/Index.html.pl
+++ b/project/captive/doc/Index.html.pl
@@ -20,9 +20,8 @@
 
 package project::captive::doc::Index;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
diff --git a/project/checkListItem.pl b/project/checkListItem.pl
index b8c9814..ed4e15f 100755
--- a/project/checkListItem.pl
+++ b/project/checkListItem.pl
@@ -18,10 +18,10 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
+package project::checkListItem;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
-- 
1.8.3.1