FM / Control

/usr/share/perl5/Dpkg/Control

Name	Size	Mode	Actions
Tests/	-	0755	rm
Changelog.pm	1427	0644	edit dl rm
Fields.pm	2111	0644	edit dl rm
FieldsCore.pm	29589	0644	edit dl rm
Hash.pm	1229	0644	edit dl rm
HashCore.pm	15764	0644	edit dl rm
Info.pm	5150	0644	edit dl rm
Tests.pm	1775	0644	edit dl rm
Types.pm	2686	0644	edit dl rm

Edit: /usr/share/perl5/Dpkg/Control/Fields.pm (2111B)

# Copyright © 2007-2009 Raphaël Hertzog <hertzog@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <https://www.gnu.org/licenses/>.

package Dpkg::Control::Fields;

use strict;
use warnings;

our $VERSION = '1.00';
our @EXPORT = @Dpkg::Control::FieldsCore::EXPORT;

use Carp;
use Exporter qw(import);

use Dpkg::Control::FieldsCore;
use Dpkg::Vendor qw(run_vendor_hook);

# Register vendor specifics fields
foreach my $op (run_vendor_hook('register-custom-fields')) {
    next if not (defined $op and ref $op); # Skip when not implemented by vendor
    my $func = shift @$op;
    if ($func eq 'register') {
        my ($field, $allowed_type, @opts) = @{$op};
        field_register($field, $allowed_type, @opts);
    } elsif ($func eq 'insert_before') {
        my ($type, $ref, @fields) = @{$op};
        field_insert_before($type, $ref, @fields);
    } elsif ($func eq 'insert_after') {
        my ($type, $ref, @fields) = @{$op};
        field_insert_after($type, $ref, @fields);
    } else {
        croak "vendor hook register-custom-fields sent bad data: @$op";
    }
}

=encoding utf8

=head1 NAME

Dpkg::Control::Fields - manage (list of official) control fields

=head1 DESCRIPTION

The module contains a list of vendor-neutral and vendor-specific fieldnames
with associated meta-data explaining in which type of control information
they are allowed. The vendor-neutral fieldnames and all functions are
inherited from Dpkg::Control::FieldsCore.

=head1 CHANGES

=head2 Version 1.00 (dpkg 1.15.6)

Mark the module as public.

=cut

cmd: