Add $VERSION numbers to all perl modules

Modules whose API should be stable have a version 1.00.
The modules with version 0.01 are expected to have further API
changes in the (near) future or are deemed to be useful mostly
for dpkg-dev's internal usage.

debian/changelog

@@ -31,6 +31,8 @@ dpkg (1.15.6) UNRELEASED; urgency=low
   * Don't return duplicate bug numbers in Launchpad-Bugs-Fixed:.
     Thanks to Brian Murray <brian@ubuntu.com> for the report
     and the patch. Closes: #569618
+  * Add $VERSION numbers to all perl modules. Closes: #465256
+    1.00 and higher means that the API should be stable
 
   [ Guillem Jover ]
   * Handle argument parsing in dpkg-checkbuilddeps and dpkg-scanpackages

scripts/Dpkg.pm

@@ -16,6 +16,8 @@ package Dpkg;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 # This module is the only one provided by dpkg and not dpkg-dev
 #
 # Don't add things here if you don't need them in dpkg itself.

scripts/Dpkg/Arch.pm

@@ -16,6 +16,8 @@ package Dpkg::Arch;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use base qw(Exporter);
 our @EXPORT_OK = qw(get_raw_build_arch get_raw_host_arch
                     get_build_arch get_host_arch get_gcc_host_gnu_type

scripts/Dpkg/BuildOptions.pm

@@ -16,6 +16,8 @@ package Dpkg::BuildOptions;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 

scripts/Dpkg/Changelog.pm

@@ -34,6 +34,8 @@ package Dpkg::Changelog;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg;
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling qw(:DEFAULT report);

scripts/Dpkg/Changelog/Debian.pm

@@ -41,6 +41,8 @@ package Dpkg::Changelog::Debian;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Gettext;
 use Dpkg::Changelog qw(:util);
 use base qw(Dpkg::Changelog);

scripts/Dpkg/Changelog/Entry.pm

@@ -18,6 +18,8 @@ package Dpkg::Changelog::Entry;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Control::Changelog;

scripts/Dpkg/Changelog/Entry/Debian.pm

@@ -18,6 +18,8 @@ package Dpkg::Changelog::Entry::Debian;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Exporter;
 use Dpkg::Changelog::Entry;
 use base qw(Exporter Dpkg::Changelog::Entry);

scripts/Dpkg/Changelog/Parse.pm

@@ -32,6 +32,8 @@ package Dpkg::Changelog::Parse;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg; # for $dpkglibdir
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;

scripts/Dpkg/Checksums.pm

@@ -16,6 +16,8 @@ package Dpkg::Checksums;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg;
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;

scripts/Dpkg/Compression.pm

@@ -17,6 +17,9 @@ package Dpkg::Compression;
 
 use strict;
 use warnings;
+
+our $VERSION = "1.00";
+
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 

scripts/Dpkg/Compression/FileHandle.pm

@@ -18,6 +18,8 @@ package Dpkg::Compression::FileHandle;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Compression;
 use Dpkg::Compression::Process;
 use Dpkg::Gettext;

scripts/Dpkg/Compression/Process.pm

@@ -18,6 +18,8 @@ package Dpkg::Compression::Process;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Compression;
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;

scripts/Dpkg/Conf.pm

@@ -18,6 +18,8 @@ package Dpkg::Conf;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 

scripts/Dpkg/Control.pm

@@ -18,6 +18,8 @@ package Dpkg::Control;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Control::Types;

scripts/Dpkg/Control/Changelog.pm

@@ -18,6 +18,8 @@ package Dpkg::Control::Changelog;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Control;
 use base 'Dpkg::Control';
 

scripts/Dpkg/Control/Fields.pm

@@ -18,6 +18,8 @@ package Dpkg::Control::Fields;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use base qw(Exporter);
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;

scripts/Dpkg/Control/Hash.pm

@@ -18,6 +18,8 @@ package Dpkg::Control::Hash;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 

scripts/Dpkg/Control/Info.pm

@@ -18,6 +18,8 @@ package Dpkg::Control::Info;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Control;
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;

scripts/Dpkg/Deps.pm

@@ -46,6 +46,8 @@ All the deps_* functions are exported by default.
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Version;
 use Dpkg::Arch qw(get_host_arch);
 use Dpkg::ErrorHandling;

scripts/Dpkg/ErrorHandling.pm

@@ -13,6 +13,11 @@
 
 package Dpkg::ErrorHandling;
 
+use strict;
+use warnings;
+
+our $VERSION = "1.00";
+
 use Dpkg;
 use Dpkg::Gettext;
 

scripts/Dpkg/Exit.pm

@@ -18,6 +18,8 @@ package Dpkg::Exit;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 our @handlers = ();
 sub exit_handler {
     &$_() foreach (reverse @handlers);

scripts/Dpkg/Gettext.pm

@@ -26,6 +26,8 @@ package Dpkg::Gettext;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 BEGIN {
 	eval 'use Locale::gettext';
 	if ($@) {

scripts/Dpkg/IPC.pm

@@ -19,6 +19,8 @@ package Dpkg::IPC;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 

scripts/Dpkg/Index.pm

@@ -18,6 +18,8 @@ package Dpkg::Index;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Control;

scripts/Dpkg/Interface/Storable.pm

@@ -18,6 +18,8 @@ package Dpkg::Interface::Storable;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Compression::FileHandle;

scripts/Dpkg/Path.pm

@@ -18,6 +18,8 @@ package Dpkg::Path;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use base qw(Exporter);
 use File::Spec;
 use Cwd qw(realpath);

scripts/Dpkg/Shlibs.pm

@@ -18,6 +18,8 @@ package Dpkg::Shlibs;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base qw(Exporter);
 our @EXPORT_OK = qw(@librarypaths find_library);
 

scripts/Dpkg/Shlibs/Cppfilt.pm

@@ -17,6 +17,9 @@ package Dpkg::Shlibs::Cppfilt;
 
 use strict;
 use warnings;
+
+our $VERSION = "0.01";
+
 use base 'Exporter';
 
 use Dpkg::ErrorHandling;

scripts/Dpkg/Shlibs/Objdump.pm

@@ -16,6 +16,8 @@
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 package Dpkg::Shlibs::Objdump;
 
 use Dpkg::Gettext;

scripts/Dpkg/Shlibs/Symbol.pm

@@ -18,6 +18,9 @@ package Dpkg::Shlibs::Symbol;
 
 use strict;
 use warnings;
+
+our $VERSION = "0.01";
+
 use Dpkg::Gettext;
 use Dpkg::Deps;
 use Dpkg::ErrorHandling;

scripts/Dpkg/Shlibs/SymbolFile.pm

@@ -18,6 +18,9 @@ package Dpkg::Shlibs::SymbolFile;
 
 use strict;
 use warnings;
+
+our $VERSION = "0.01";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Version;

scripts/Dpkg/Source/Archive.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Archive;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg::Source::Functions qw(erasedir fixperms);
 use Dpkg::Gettext;
 use Dpkg::IPC;

scripts/Dpkg/Source/Functions.pm

@@ -16,6 +16,8 @@ package Dpkg::Source::Functions;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base qw(Exporter);
 our @EXPORT_OK = qw(erasedir fixperms is_binary);
 

scripts/Dpkg/Source/Package.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Package;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Control;

scripts/Dpkg/Source/Package/V1.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Package::V1;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base 'Dpkg::Source::Package';
 
 use Dpkg;

scripts/Dpkg/Source/Package/V2.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Package::V2;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base 'Dpkg::Source::Package';
 
 use Dpkg;

scripts/Dpkg/Source/Package/V3/bzr.pm

@@ -24,6 +24,8 @@ package Dpkg::Source::Package::V3::bzr;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base 'Dpkg::Source::Package';
 
 use Cwd;

scripts/Dpkg/Source/Package/V3/custom.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Package::V3::custom;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base 'Dpkg::Source::Package';
 
 use Dpkg;

scripts/Dpkg/Source/Package/V3/git.pm

@@ -22,6 +22,8 @@ package Dpkg::Source::Package::V3::git;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base 'Dpkg::Source::Package';
 
 use Cwd;

scripts/Dpkg/Source/Package/V3/native.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Package::V3::native;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base 'Dpkg::Source::Package';
 
 use Dpkg;

scripts/Dpkg/Source/Package/V3/quilt.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Package::V3::quilt;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 # Based on wig&pen implementation
 use base 'Dpkg::Source::Package::V2';
 

scripts/Dpkg/Source/Patch.pm

@@ -18,6 +18,8 @@ package Dpkg::Source::Patch;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg;
 use Dpkg::Gettext;
 use Dpkg::IPC;

scripts/Dpkg/Substvars.pm

@@ -18,6 +18,8 @@ package Dpkg::Substvars;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg qw($version);
 use Dpkg::Arch qw(get_host_arch);
 use Dpkg::ErrorHandling;

scripts/Dpkg/Vars.pm

@@ -18,6 +18,8 @@ package Dpkg::Vars;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 

scripts/Dpkg/Vendor.pm

@@ -18,6 +18,8 @@ package Dpkg::Vendor;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 use Dpkg::Control::Hash;

scripts/Dpkg/Vendor/Debian.pm

@@ -18,6 +18,8 @@ package Dpkg::Vendor::Debian;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use base qw(Dpkg::Vendor::Default);
 use Dpkg::Control::Types;
 use Dpkg::Vendor::Ubuntu;

scripts/Dpkg/Vendor/Default.pm

@@ -18,6 +18,8 @@ package Dpkg::Vendor::Default;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 # If you use this file as template to create a new vendor object, please
 # uncomment the following lines
 #use base qw(Dpkg::Vendor::Default);

scripts/Dpkg/Vendor/Ubuntu.pm

@@ -21,6 +21,8 @@ package Dpkg::Vendor::Ubuntu;
 use strict;
 use warnings;
 
+our $VERSION = "0.01";
+
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 use Dpkg::Control::Types;

scripts/Dpkg/Version.pm

@@ -21,6 +21,8 @@ package Dpkg::Version;
 use strict;
 use warnings;
 
+our $VERSION = "1.00";
+
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;