Fix POD errors detected by podchecker in perl modules

Add missing blank lines after =cut, close =over section with =back and
add a FIXME comment to an empty section.

scripts/Dpkg/Cdata.pm

@@ -52,6 +52,7 @@ The return value is a reference to a tied hash (Dpkg::Fields::Object) that
 can be used to access the various fields.
 
 =cut
+
 sub parsecdata {
     my ($input, $file, %options) = @_;
 
@@ -121,4 +122,5 @@ sub parsecdata {
 =back
 
 =cut
+
 1;

scripts/Dpkg/Changelog.pm

@@ -24,7 +24,7 @@ Dpkg::Changelog
 
 =head1 DESCRIPTION
 
-to be written
+FIXME: to be written
 
 =head2 Functions
 
@@ -722,6 +722,7 @@ as "--<key>". If the value of the corresponding hash entry is defined, then
 it's passed as the parameter that follows.
 
 =cut
+
 sub parse_changelog {
     my (%options) = @_;
     my @parserpath = ("/usr/local/lib/dpkg/parsechangelog",
@@ -821,6 +822,8 @@ Dpkg::Changelog::Entry - represents one entry in a Debian changelog
 
 =head1 SYNOPSIS
 
+FIXME: to be written
+
 =head1 DESCRIPTION
 
 =cut

scripts/Dpkg/Control.pm

@@ -42,6 +42,7 @@ Create a new Dpkg::Control object for $file. If $file is omitted, it parses
 debian/control. If file is "-", it parses the standard input.
 
 =cut
+
 sub new {
     my ($this, $arg) = @_;
     my $class = ref($this) || $this;
@@ -67,6 +68,7 @@ sub new {
 Resets what got read.
 
 =cut
+
 sub reset {
     my $self = shift;
     $self->{source} = undef;
@@ -78,6 +80,7 @@ sub reset {
 Parse the content of $file. Exits in case of errors.
 
 =cut
+
 sub parse {
     my ($self, $file) = @_;
     open(CDATA, "<", $file) || syserr(_g("cannot read %s"), $file);
@@ -93,6 +96,7 @@ or a description of where the data comes from. It's used in error
 messages.
 
 =cut
+
 sub parse_fh {
     my ($self, $fh, $desc) = @_;
     $self->reset();
@@ -118,6 +122,7 @@ Returns a reference to a hash containing the fields concerning the
 source package. The hash is tied to Dpkg::Fields::Object.
 
 =cut
+
 sub get_source {
     my $self = shift;
     return $self->{source};
@@ -130,6 +135,7 @@ package numbered $idx (starting at 1). The hash is tied to
 Dpkg::Fields::Object.
 
 =cut
+
 sub get_pkg_by_idx {
     my ($self, $idx) = @_;
     return $self->{packages}[--$idx];
@@ -141,6 +147,7 @@ Returns a reference to a hash containing the fields concerning the binary
 package named $name. The hash is tied to Dpkg::Fields::Object.
 
 =cut
+
 sub get_pkg_by_name {
     my ($self, $name) = @_;
     foreach my $pkg (@{$self->{packages}}) {
@@ -155,6 +162,7 @@ sub get_pkg_by_name {
 Returns a list containing the hashes for all binary packages.
 
 =cut
+
 sub get_packages {
     my $self = shift;
     return @{$self->{packages}};
@@ -165,6 +173,7 @@ sub get_packages {
 Dump the content into a filehandle.
 
 =cut
+
 sub dump {
     my ($self, $fh) = @_;
     tied(%{$self->{source}})->dump($fh);

scripts/Dpkg/Deps.pm

@@ -116,6 +116,7 @@ The arguments can also be undef in case there's no explicit architecture
 restriction.
 
 =cut
+
 sub arch_is_superset {
     my ($p, $q) = @_;
     my $p_arch_neg = defined($p) && $p->[0] =~ /^!/;
@@ -186,6 +187,7 @@ dependency. It returns 0 if the "p" dependency implies that "q" is
 not satisfied. It returns undef when there's no implication.
 
 =cut
+
 sub version_implies {
     my ($rel_p, $v_p, $rel_q, $v_q) = @_;
 
@@ -296,6 +298,7 @@ this when parsing non-dependency fields like Conflicts (see
 =back
 
 =cut
+
 sub parse {
     my $dep_line = shift;
     my %options = (@_);
@@ -357,6 +360,7 @@ dumping.
 =back
 
 =cut
+
 sub compare {
     my ($a, $b) = @_;
     return -1 if $a->is_empty();
@@ -785,6 +789,7 @@ Add a new dependency object at the end of the list.
 =back
 
 =cut
+
 use strict;
 use warnings;
 
@@ -1113,6 +1118,7 @@ packages provided (by the set of installed packages).
 Create a new object.
 
 =cut
+
 use strict;
 use warnings;
 
@@ -1131,6 +1137,7 @@ undefined we know that the package is installed but we don't know which
 version it is.
 
 =cut
+
 sub add_installed_package {
     my ($self, $pkg, $ver) = @_;
     $self->{pkg}{$pkg} = $ver;
@@ -1143,6 +1150,7 @@ and $version correspond to the associated relation given in the Provides
 field. This might be used in the future for versioned provides.
 
 =cut
+
 sub add_provided_package {
     my ($self, $pkg, $rel, $ver, $by) = @_;
     if (not exists $self->{virtualpkg}{$pkg}) {
@@ -1161,6 +1169,7 @@ listed as [ $provider, $relation, $version ]).
 =back
 
 =cut
+
 sub check_package {
     my ($self, $pkg) = @_;
     if (exists $self->{pkg}{$pkg}) {

scripts/Dpkg/Fields.pm

@@ -46,6 +46,7 @@ Dpkg::Fields::capit). It also stores the order in which fields have been
 added in order to be able to dump them in the same order.
 
 =cut
+
 use Tie::Hash;
 our @ISA = qw(Tie::ExtraHash Tie::Hash);
 
@@ -66,6 +67,7 @@ Return a reference to a tied hash implementing storage of simple
 "field: value" mapping as used in many Debian-specific files.
 
 =cut
+
 sub new {
     my $hash = {};
     tie %{$hash}, 'Dpkg::Fields::Object';
@@ -138,6 +140,7 @@ following regex: /X[SBC]+-$name/i. Return the name of the field found or
 undef if nothing has been found.
 
 =cut
+
 sub find_custom_field {
     my ($self, $name) = @_;
     foreach my $key (keys %{$self->[0]}) {
@@ -151,6 +154,7 @@ sub find_custom_field {
 Identify a user field and retrieve its value.
 
 =cut
+
 sub get_custom_field {
     my ($self, $name) = @_;
     my $key = $self->find_custom_field($name);
@@ -164,6 +168,7 @@ sub get_custom_field {
 Dump the raw content of the hash either as a string or to a filehandle.
 
 =cut
+
 sub dump {
     my ($self, $fh) = @_;
     my $str = "";
@@ -181,6 +186,7 @@ sub dump {
 Define the order in which fields will be displayed in the output() method.
 
 =cut
+
 sub set_field_importance {
     my ($self, @fields) = @_;
     my $i = 1;
@@ -197,6 +203,7 @@ substitution of variables defined in the Dpkg::Substvars object.
 Also returns the string of what would printed on the filehandle.
 
 =cut
+
 sub output {
     my ($self, $fh, $substvars) = @_;
     my $str = "";

scripts/Dpkg/Path.pm

@@ -88,6 +88,7 @@ It can still return undef if a file outside of the debian sub-directory is
 provided.
 
 =cut
+
 sub guess_pkg_root_dir($) {
     my $file = shift;
     my $root = get_pkg_root_dir($file);
@@ -113,6 +114,7 @@ numbers and the inode numbers returned by stat()/lstat() are the same. If
 $resolve_symlink is true then stat() is used, otherwise lstat() is used.
 
 =cut
+
 sub check_files_are_the_same($$;$) {
     my ($file1, $file2, $resolve_symlink) = @_;
     return 0 if ((! -e $file1) || (! -e $file2));
@@ -137,6 +139,7 @@ previous element is not a symlink. Thus it should only be used on real
 filenames.
 
 =cut
+
 sub canonpath($) {
     my $path = shift;
     $path = File::Spec->canonpath($path);
@@ -170,6 +173,7 @@ Return the filename of the file pointed by the symlink. The new name is
 canonicalized by canonpath().
 
 =cut
+
 sub resolve_symlink($) {
     my $symlink = shift;
     my $content = readlink($symlink);

scripts/Dpkg/Substvars.pm

@@ -51,6 +51,7 @@ and ${dpkg:Upstream-Version}.
 Additional substitutions will be read from the $file passed as parameter.
 
 =cut
+
 sub new {
     my ($this, $arg) = @_;
     my $class = ref($this) || $this;
@@ -74,6 +75,7 @@ sub new {
 Add/replace a substitution.
 
 =cut
+
 sub set {
     my ($self, $key, $value) = @_;
     $self->{$key} = $value;
@@ -84,6 +86,7 @@ sub set {
 Get the value of a given substitution.
 
 =cut
+
 sub get {
     my ($self, $key) = @_;
     return $self->{$key};
@@ -94,6 +97,7 @@ sub get {
 Remove a given substitution.
 
 =cut
+
 sub delete {
     my ($self, $key) = @_;
     return delete $self->{$key};
@@ -104,6 +108,7 @@ sub delete {
 Add new substitutions read from $file.
 
 =cut
+
 sub parse {
     my ($self, $varlistfile) = @_;
     $varlistfile="./$varlistfile" if $varlistfile =~ m/\s/;
@@ -129,6 +134,7 @@ Defines ${binary:Version}, ${source:Version} and
 ${source:Upstream-Version} based on the given version string.
 
 =cut
+
 sub set_version_substvars {
     my ($self, $version) = @_;
 
@@ -159,6 +165,7 @@ sub set_arch_substvars {
 Substitutes variables in $string and return the result in $newstring.
 
 =cut
+
 sub substvars {
     my ($self, $v) = @_;
     my $lhs;

scripts/Dpkg/Vendor.pm

@@ -57,6 +57,7 @@ to the vendor of the currently installed operating system. Returns undef
 if there's no file for the given vendor.
 
 =cut
+
 sub get_vendor_info(;$) {
     my $vendor = shift || "default";
     my $file = get_vendor_file($vendor);
@@ -73,6 +74,7 @@ Check if there's a file for the given vendor and returns its
 name.
 
 =cut
+
 sub get_vendor_file(;$) {
     my $vendor = shift || "default";
     my $file;
@@ -89,6 +91,7 @@ that first, otherwise it falls back to parsing /etc/dpkg/origins/default.
 If that file doesn't exist, it returns undef.
 
 =cut
+
 sub get_current_vendor() {
     my $f;
     if ($ENV{'DEB_VENDOR'}) {
@@ -108,6 +111,7 @@ If no vendor can be identified, then return the Dpkg::Vendor::Default
 object.
 
 =cut
+
 my %OBJECT_CACHE;
 sub get_vendor_object {
     my $vendor = shift || get_current_vendor() || "Default";
@@ -133,9 +137,14 @@ sub get_vendor_object {
 Run a hook implemented by the current vendor object.
 
 =cut
+
 sub run_vendor_hook {
     my $vendor_obj = get_vendor_object();
     $vendor_obj->run_hook(@_);
 }
 
+=back
+
+=cut
+
 1;

scripts/Dpkg/Vendor/Default.pm

@@ -52,6 +52,7 @@ Creates the default vendor object. Can be inherited by all vendor objects
 if they don't need any specific initialization at object creation time.
 
 =cut
+
 sub new {
     my ($this) = @_;
     my $class = ref($this) || $this;
@@ -87,6 +88,7 @@ vendor-specific keyrings.
 =back
 
 =cut
+
 sub run_hook {
     my ($self, $hook, @params) = @_;
 
@@ -102,4 +104,5 @@ sub run_hook {
 =back
 
 =cut
+
 1;

scripts/Dpkg/Vendor/Ubuntu.pm

@@ -36,6 +36,7 @@ This vendor object customize the behaviour of dpkg-source
 to check that Maintainers have been modified if necessary.
 
 =cut
+
 sub run_hook {
     my ($self, $hook, @params) = @_;
 
@@ -87,6 +88,7 @@ which are references to bugs on Launchpad. Returns all closed bug
 numbers in an array reference.
 
 =cut
+
 sub find_launchpad_closes {
     my ($changes) = @_;
     my @closes = ();
@@ -104,4 +106,5 @@ sub find_launchpad_closes {
 =back
 
 =cut
+
 1;

scripts/Dpkg/Version.pm

@@ -202,6 +202,7 @@ an error message if it contains illegal characters, otherwise it returns
 true.
 
 =cut
+
 sub check_version ($;$) {
     my ($version, $die) = @_;
     $version ||= "";