Permalink
Browse files

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

… this
  • Loading branch information...
1 parent b0d1300 commit f721cb2d32683c4049f13edc832b0368d89d97c6 @bingos bingos committed Jan 21, 2013
Showing with 117 additions and 33 deletions.
  1. +36 −0 dev-bin/update-version.pl
  2. +1 −1 lib/CPANPLUS/Backend.pm
  3. +2 −2 lib/CPANPLUS/Backend/RV.pm
  4. +2 −1 lib/CPANPLUS/Config.pm
  5. +1 −1 lib/CPANPLUS/Config/HomeEnv.pm
  6. +1 −1 lib/CPANPLUS/Configure.pm
  7. +2 −2 lib/CPANPLUS/Configure/Setup.pm
  8. +3 −0 lib/CPANPLUS/Dist.pm
  9. +2 −0 lib/CPANPLUS/Dist/Autobundle.pm
  10. +1 −2 lib/CPANPLUS/Dist/Base.pm
  11. +3 −2 lib/CPANPLUS/Dist/MM.pm
  12. +3 −0 lib/CPANPLUS/Dist/Sample.pm
  13. +2 −0 lib/CPANPLUS/Error.pm
  14. +0 −3 lib/CPANPLUS/Internals.pm
  15. +1 −1 lib/CPANPLUS/Internals/Constants.pm
  16. +1 −2 lib/CPANPLUS/Internals/Constants/Report.pm
  17. +3 −0 lib/CPANPLUS/Internals/Extract.pm
  18. +2 −0 lib/CPANPLUS/Internals/Fetch.pm
  19. +3 −0 lib/CPANPLUS/Internals/Report.pm
  20. +3 −0 lib/CPANPLUS/Internals/Search.pm
  21. +3 −0 lib/CPANPLUS/Internals/Source.pm
  22. +3 −0 lib/CPANPLUS/Internals/Source/Memory.pm
  23. +3 −0 lib/CPANPLUS/Internals/Source/SQLite.pm
  24. +2 −5 lib/CPANPLUS/Internals/Source/SQLite/Tie.pm
  25. +3 −0 lib/CPANPLUS/Internals/Utils.pm
  26. +3 −0 lib/CPANPLUS/Internals/Utils/Autoflush.pm
  27. +2 −2 lib/CPANPLUS/Module.pm
  28. +2 −0 lib/CPANPLUS/Module/Author.pm
  29. +3 −1 lib/CPANPLUS/Module/Author/Fake.pm
  30. +2 −2 lib/CPANPLUS/Module/Checksums.pm
  31. +2 −1 lib/CPANPLUS/Module/Fake.pm
  32. +2 −2 lib/CPANPLUS/Module/Signature.pm
  33. +3 −0 lib/CPANPLUS/Selfupdate.pm
  34. +2 −1 lib/CPANPLUS/Shell.pm
  35. +1 −1 lib/CPANPLUS/Shell/Classic.pm
  36. +3 −0 lib/CPANPLUS/Shell/Default/Plugins/CustomSource.pm
  37. +3 −0 lib/CPANPLUS/Shell/Default/Plugins/Remote.pm
  38. +3 −0 lib/CPANPLUS/Shell/Default/Plugins/Source.pm
View
@@ -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]],
View
@@ -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'} = $$;
@@ -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;
View
@@ -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
@@ -4,7 +4,7 @@ use strict;
use File::Spec;
use vars qw($VERSION);
-$VERSION = '0.04';
+$VERSION = '0.9133';
sub setup {
my $conf = shift;
@@ -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.
@@ -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;
View
@@ -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;
@@ -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];
@@ -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
View
@@ -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;
@@ -1,5 +1,8 @@
package CPANPLUS::Dist::Sample;
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
=pod
=head1 NAME
View
@@ -1,6 +1,8 @@
package CPANPLUS::Error;
use strict;
+use vars qw[$VERSION];
+$VERSION = '0.9133';
use Log::Message private => 0;;
@@ -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];
@@ -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
@@ -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',
@@ -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
@@ -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;
@@ -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 ###
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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 Data::Dumper;
-$Data::Dumper::Indent = 1;
+use vars qw[@ISA $VERSION];
+$VERSION = '0.9133';
require Tie::Hash;
-use vars qw[@ISA];
push @ISA, 'Tie::StdHash';
@@ -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
@@ -1,5 +1,8 @@
package CPANPLUS::Internals::Utils::Autoflush;
+use vars qw[$VERSION];
+$VERSION = '0.9133';
+
BEGIN { $|++ };
1;
View
@@ -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;
@@ -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;
@@ -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;
@@ -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
@@ -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;
Oops, something went wrong.

0 comments on commit f721cb2

Please sign in to comment.