Add $VERSION to all .pm files, update vers update script to deal with…

… this
jib · Jan 21, 2013 · f721cb2 · f721cb2
1 parent b0d1300
commit f721cb2
Show file tree

Hide file tree

Showing 38 changed files with 117 additions and 33 deletions.
diff --git a/dev-bin/update-version.pl b/dev-bin/update-version.pl
@@ -6,6 +6,42 @@
         => [qw[ lib/CPANPLUS.pm
                 lib/CPANPLUS/Internals.pm
                 lib/CPANPLUS/Shell/Default.pm
+                lib/CPANPLUS/Internals/Source/SQLite/Tie.pm
+                lib/CPANPLUS/Internals/Source/Memory.pm
+                lib/CPANPLUS/Internals/Source/SQLite.pm
+                lib/CPANPLUS/Internals/Constants/Report.pm
+                lib/CPANPLUS/Internals/Utils/Autoflush.pm
+                lib/CPANPLUS/Internals/Extract.pm
+                lib/CPANPLUS/Internals/Constants.pm
+                lib/CPANPLUS/Internals/Fetch.pm
+                lib/CPANPLUS/Internals/Report.pm
+                lib/CPANPLUS/Internals/Search.pm
+                lib/CPANPLUS/Internals/Source.pm
+                lib/CPANPLUS/Internals/Utils.pm
+                lib/CPANPLUS/Backend/RV.pm
+                lib/CPANPLUS/Module/Author/Fake.pm
+                lib/CPANPLUS/Module/Author.pm
+                lib/CPANPLUS/Module/Checksums.pm
+                lib/CPANPLUS/Module/Fake.pm
+                lib/CPANPLUS/Module/Signature.pm
+                lib/CPANPLUS/Dist/Autobundle.pm
+                lib/CPANPLUS/Dist/Base.pm
+                lib/CPANPLUS/Dist/MM.pm
+                lib/CPANPLUS/Dist/Sample.pm
+                lib/CPANPLUS/Configure/Setup.pm
+                lib/CPANPLUS/Shell/Default/Plugins/CustomSource.pm
+                lib/CPANPLUS/Shell/Default/Plugins/Remote.pm
+                lib/CPANPLUS/Shell/Default/Plugins/Source.pm
+                lib/CPANPLUS/Shell/Classic.pm
+                lib/CPANPLUS/Backend.pm
+                lib/CPANPLUS/Config.pm
+                lib/CPANPLUS/Configure.pm
+                lib/CPANPLUS/Dist.pm
+                lib/CPANPLUS/Error.pm
+                lib/CPANPLUS/Module.pm
+                lib/CPANPLUS/Selfupdate.pm
+                lib/CPANPLUS/Shell.pm
+                lib/CPANPLUS/Config/HomeEnv.pm
             ]],
     qq[s/^version:.*\$/version: $Ver/]
         => [qw[ META.yml]],

diff --git a/lib/CPANPLUS/Backend.pm b/lib/CPANPLUS/Backend.pm
@@ -23,7 +23,7 @@ $Params::Check::VERBOSE = 1;
 use vars qw[@ISA $VERSION];
 
 @ISA     = qw[CPANPLUS::Internals];
-$VERSION = $CPANPLUS::Internals::VERSION;
+$VERSION = '0.9133';
 
 ### mark that we're running under CPANPLUS to spawned processes
 $ENV{'PERL5_CPANPLUS_IS_RUNNING'} = $$;

diff --git a/lib/CPANPLUS/Backend/RV.pm b/lib/CPANPLUS/Backend/RV.pm
@@ -1,8 +1,8 @@
 package CPANPLUS::Backend::RV;
 
 use strict;
-use vars qw[$STRUCT];
+use vars qw[$STRUCT $VERSION];
-
+$VERSION = '0.9133';
 
 use CPANPLUS::Error;
 use CPANPLUS::Internals::Constants;

diff --git a/lib/CPANPLUS/Config.pm b/lib/CPANPLUS/Config.pm
@@ -4,7 +4,6 @@ use strict;
 use warnings;
 
 use base 'Object::Accessor';
-
 use base 'CPANPLUS::Internals::Utils';
 
 use Config;
@@ -20,6 +19,8 @@ use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 use Module::Load::Conditional   qw[check_install];
 use version;
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
 
 =pod
 

diff --git a/lib/CPANPLUS/Config/HomeEnv.pm b/lib/CPANPLUS/Config/HomeEnv.pm
@@ -4,7 +4,7 @@ use strict;
 use File::Spec;
 use vars qw($VERSION);
 
-$VERSION = '0.04';
+$VERSION = '0.9133';
 
 sub setup {
   my $conf = shift;

diff --git a/lib/CPANPLUS/Configure.pm b/lib/CPANPLUS/Configure.pm
@@ -20,7 +20,7 @@ local $Params::Check::VERBOSE = 1;
 
 ### require, avoid circular use ###
 require CPANPLUS::Internals;
-$VERSION = $CPANPLUS::Internals::VERSION = $CPANPLUS::Internals::VERSION;
+$VERSION = '0.9133';
 
 ### can't use O::A as we're using our own AUTOLOAD to get to
 ### the config options.

diff --git a/lib/CPANPLUS/Configure/Setup.pm b/lib/CPANPLUS/Configure/Setup.pm
@@ -1,7 +1,8 @@
 package CPANPLUS::Configure::Setup;
 
 use strict;
-use vars    qw(@ISA);
+use vars    qw[@ISA $VERSION];
+$VERSION = '0.9133';
 
 use base    qw[CPANPLUS::Internals::Utils];
 use base    qw[Object::Accessor];
@@ -11,7 +12,6 @@ use Term::UI;
 use Module::Load;
 use Term::ReadLine;
 
-
 use CPANPLUS::Internals::Utils;
 use CPANPLUS::Internals::Constants;
 use CPANPLUS::Error;

diff --git a/lib/CPANPLUS/Dist.pm b/lib/CPANPLUS/Dist.pm
@@ -14,6 +14,9 @@ use Params::Check               qw[check];
 use Module::Load::Conditional   qw[can_load check_install];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 use base 'Object::Accessor';
 
 local $Params::Check::VERBOSE = 1;

diff --git a/lib/CPANPLUS/Dist/Autobundle.pm b/lib/CPANPLUS/Dist/Autobundle.pm
@@ -5,6 +5,8 @@ use warnings;
 use CPANPLUS::Error             qw[error msg];
 use Params::Check               qw[check];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
+use vars qw[$VERSION];
+$VERSION = '0.9133';
 
 use base qw[CPANPLUS::Dist::Base];
 

diff --git a/lib/CPANPLUS/Dist/Base.pm b/lib/CPANPLUS/Dist/Base.pm
@@ -4,8 +4,7 @@ use strict;
 
 use base    qw[CPANPLUS::Dist];
 use vars    qw[$VERSION];
-$VERSION =  $CPANPLUS::Internals::VERSION = $CPANPLUS::Internals::VERSION;
+$VERSION = '0.9133';
-
 
 =head1 NAME
 

diff --git a/lib/CPANPLUS/Dist/MM.pm b/lib/CPANPLUS/Dist/MM.pm
@@ -1,9 +1,10 @@
 package CPANPLUS::Dist::MM;
 
-use warnings;
 use strict;
-use vars    qw[@ISA $STATUS];
+use warnings;
+use vars    qw[@ISA $STATUS $VERSION];
 use base    'CPANPLUS::Dist::Base';
+$VERSION = '0.9133';
 
 use CPANPLUS::Internals::Constants;
 use CPANPLUS::Internals::Constants::Report;

diff --git a/lib/CPANPLUS/Dist/Sample.pm b/lib/CPANPLUS/Dist/Sample.pm
@@ -1,5 +1,8 @@
 package CPANPLUS::Dist::Sample;
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 =pod
 
 =head1 NAME

diff --git a/lib/CPANPLUS/Error.pm b/lib/CPANPLUS/Error.pm
@@ -1,6 +1,8 @@
 package CPANPLUS::Error;
 
 use strict;
+use vars qw[$VERSION];
+$VERSION = '0.9133';
 
 use Log::Message private => 0;;
 

diff --git a/lib/CPANPLUS/Internals.pm b/lib/CPANPLUS/Internals.pm
@@ -7,7 +7,6 @@ use 5.006001;
 use strict;
 use Config;
 
-
 use CPANPLUS::Error;
 
 use CPANPLUS::Selfupdate;
@@ -19,7 +18,6 @@ use CPANPLUS::Internals::Constants;
 use CPANPLUS::Internals::Search;
 use CPANPLUS::Internals::Report;
 
-
 require base;
 use Cwd                         qw[cwd];
 use Module::Load                qw[load];
@@ -29,7 +27,6 @@ use Module::Load::Conditional   qw[can_load];
 
 use Object::Accessor;
 
-
 local $Params::Check::VERBOSE = 1;
 
 use vars qw[@ISA $VERSION];

diff --git a/lib/CPANPLUS/Internals/Constants.pm b/lib/CPANPLUS/Internals/Constants.pm
@@ -13,10 +13,10 @@ use vars    qw[$VERSION @ISA @EXPORT];
 
 use Package::Constants;
 
+$VERSION    = '0.9133';
 @ISA        = qw[Exporter];
 @EXPORT     = Package::Constants->list( __PACKAGE__ );
 
-
 sub constants { @EXPORT };
 
 use constant INSTALLER_BUILD

diff --git a/lib/CPANPLUS/Internals/Constants/Report.pm b/lib/CPANPLUS/Internals/Constants/Report.pm
@@ -14,11 +14,10 @@ use Package::Constants;
 ### for the version
 require CPANPLUS::Internals;
 
-$VERSION    = $CPANPLUS::Internals::VERSION = $CPANPLUS::Internals::VERSION;
+$VERSION    = '0.9133';
 @ISA        = qw[Exporter];
 @EXPORT     = Package::Constants->list( __PACKAGE__ );
 
-
 ### OS to regex map ###
 my %OS = (
     Amiga       => 'amigaos',

diff --git a/lib/CPANPLUS/Internals/Extract.pm b/lib/CPANPLUS/Internals/Extract.pm
@@ -13,6 +13,9 @@ use Params::Check               qw[check];
 use Module::Load::Conditional   qw[can_load check_install];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 local $Params::Check::VERBOSE = 1;
 
 =pod

diff --git a/lib/CPANPLUS/Internals/Fetch.pm b/lib/CPANPLUS/Internals/Fetch.pm
@@ -12,6 +12,8 @@ use IPC::Cmd                    qw[run];
 use Params::Check               qw[check];
 use Module::Load::Conditional   qw[can_load];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
+use vars qw[$VERSION];
+$VERSION = '0.9133';
 
 $Params::Check::VERBOSE = 1;
 

diff --git a/lib/CPANPLUS/Internals/Report.pm b/lib/CPANPLUS/Internals/Report.pm
@@ -13,6 +13,9 @@ use Module::Load::Conditional   qw[can_load];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 use version;
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 $Params::Check::VERBOSE = 1;
 
 ### for the version ###

diff --git a/lib/CPANPLUS/Internals/Search.pm b/lib/CPANPLUS/Internals/Search.pm
@@ -13,6 +13,9 @@ use File::Spec;
 use Params::Check               qw[check allow];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 $Params::Check::VERBOSE = 1;
 
 =pod

diff --git a/lib/CPANPLUS/Internals/Source.pm b/lib/CPANPLUS/Internals/Source.pm
@@ -18,6 +18,9 @@ use Params::Check               qw[check];
 use Module::Load::Conditional   qw[can_load];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 $Params::Check::VERBOSE = 1;
 
 ### list of methods the parent class must implement

diff --git a/lib/CPANPLUS/Internals/Source/Memory.pm b/lib/CPANPLUS/Internals/Source/Memory.pm
@@ -20,6 +20,9 @@ use Params::Check               qw[allow check];
 use Module::Load::Conditional   qw[can_load];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 $Params::Check::VERBOSE = 1;
 
 =head1 NAME

diff --git a/lib/CPANPLUS/Internals/Source/SQLite.pm b/lib/CPANPLUS/Internals/Source/SQLite.pm
@@ -16,6 +16,9 @@ use DBD::SQLite;
 use Params::Check               qw[allow check];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 use constant TXN_COMMIT => 1000;
 
 =head1 NAME

diff --git a/lib/CPANPLUS/Internals/Source/SQLite/Tie.pm b/lib/CPANPLUS/Internals/Source/SQLite/Tie.pm
@@ -9,17 +9,14 @@ use CPANPLUS::Module::Fake;
 use CPANPLUS::Module::Author::Fake;
 use CPANPLUS::Internals::Constants;
 
-
 use Params::Check               qw[check];
 use Module::Load::Conditional   qw[can_load];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 
-
+use vars qw[@ISA $VERSION];
-use Data::Dumper;
+$VERSION = '0.9133';
-$Data::Dumper::Indent = 1;
 
 require Tie::Hash;
-use vars qw[@ISA];
 push @ISA, 'Tie::StdHash';
 
 

diff --git a/lib/CPANPLUS/Internals/Utils.pm b/lib/CPANPLUS/Internals/Utils.pm
@@ -12,6 +12,9 @@ use Module::Load::Conditional   qw[can_load];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
 use version;
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 local $Params::Check::VERBOSE = 1;
 
 =pod

diff --git a/lib/CPANPLUS/Internals/Utils/Autoflush.pm b/lib/CPANPLUS/Internals/Utils/Autoflush.pm
@@ -1,5 +1,8 @@
 package CPANPLUS::Internals::Utils::Autoflush;
 
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
 BEGIN { $|++ };
 
 1;
diff --git a/lib/CPANPLUS/Module.pm b/lib/CPANPLUS/Module.pm
@@ -1,8 +1,8 @@
 package CPANPLUS::Module;
 
 use strict;
-use vars qw[@ISA];
+use vars qw[@ISA $VERSION];
-
+$VERSION = '0.9133';
 
 use CPANPLUS::Dist;
 use CPANPLUS::Error;

diff --git a/lib/CPANPLUS/Module/Author.pm b/lib/CPANPLUS/Module/Author.pm
@@ -6,6 +6,8 @@ use CPANPLUS::Error;
 use CPANPLUS::Internals::Constants;
 use Params::Check               qw[check];
 use Locale::Maketext::Simple    Class => 'CPANPLUS', Style => 'gettext';
+use vars qw[$VERSION];
+$VERSION = '0.9133';
 
 local $Params::Check::VERBOSE = 1;
 

diff --git a/lib/CPANPLUS/Module/Author/Fake.pm b/lib/CPANPLUS/Module/Author/Fake.pm
@@ -6,9 +6,11 @@ use CPANPLUS::Internals;
 use CPANPLUS::Error;
 
 use strict;
-use vars            qw[@ISA];
+use vars            qw[@ISA $VERSION];
 use Params::Check   qw[check];
 
+$VERSION = '0.9133';
+
 @ISA = qw[CPANPLUS::Module::Author];
 
 $Params::Check::VERBOSE = 1;

diff --git a/lib/CPANPLUS/Module/Checksums.pm b/lib/CPANPLUS/Module/Checksums.pm
@@ -1,8 +1,7 @@
 package CPANPLUS::Module::Checksums;
 
 use strict;
-use vars qw[@ISA];
+use vars qw[@ISA $VERSION];
-
 
 use CPANPLUS::Error;
 use CPANPLUS::Internals::Constants;
@@ -16,6 +15,7 @@ use Module::Load::Conditional   qw[can_load];
 $Params::Check::VERBOSE = 1;
 
 @ISA = qw[ CPANPLUS::Module::Signature ];
+$VERSION = '0.9133';
 
 =head1 NAME
 

diff --git a/lib/CPANPLUS/Module/Fake.pm b/lib/CPANPLUS/Module/Fake.pm
@@ -7,9 +7,10 @@ use CPANPLUS::Module::Author::Fake;
 use CPANPLUS::Internals;
 
 use strict;
-use vars            qw[@ISA];
+use vars            qw[@ISA $VERSION];
 use Params::Check   qw[check];
 
+$VERSION = '0.9133';
 @ISA = qw[CPANPLUS::Module];
 $Params::Check::VERBOSE = 1;