| Index: third_party/dpkg-dev/scripts/Dpkg/Vendor/Default.pm
|
| diff --git a/third_party/dpkg-dev/scripts/Dpkg/Vendor/Default.pm b/third_party/dpkg-dev/scripts/Dpkg/Vendor/Default.pm
|
| deleted file mode 100644
|
| index f2d8affc150b087ca388ddfa59a82cc8f2da6784..0000000000000000000000000000000000000000
|
| --- a/third_party/dpkg-dev/scripts/Dpkg/Vendor/Default.pm
|
| +++ /dev/null
|
| @@ -1,136 +0,0 @@
|
| -# Copyright © 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::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 parent qw(Dpkg::Vendor::Default);
|
| -
|
| -=encoding utf8
|
| -
|
| -=head1 NAME
|
| -
|
| -Dpkg::Vendor::Default - default vendor object
|
| -
|
| -=head1 DESCRIPTION
|
| -
|
| -A vendor object is used to provide vendor specific behaviour
|
| -in various places. This is the default object used in case
|
| -there's none for the current vendor or in case the vendor could
|
| -not be identified (see Dpkg::Vendor documentation).
|
| -
|
| -It provides some hooks that are called by various dpkg-* tools.
|
| -If you need a new hook, please file a bug against dpkg-dev and explain
|
| -your need. Note that the hook API has no guaranty to be stable over an
|
| -extended period. If you run an important distribution that makes use
|
| -of vendor hooks, you'd better submit them for integration so that
|
| -we avoid breaking your code.
|
| -
|
| -=head1 FUNCTIONS
|
| -
|
| -=over 4
|
| -
|
| -=item $vendor_obj = Dpkg::Vendor::Default->new()
|
| -
|
| -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;
|
| - my $self = {};
|
| - bless $self, $class;
|
| - return $self;
|
| -}
|
| -
|
| -=item $vendor_obj->run_hook($id, @params)
|
| -
|
| -Run the corresponding hook. The parameters are hook-specific. The
|
| -supported hooks are:
|
| -
|
| -=over 8
|
| -
|
| -=item before-source-build ($srcpkg)
|
| -
|
| -The first parameter is a Dpkg::Source::Package object. The hook is called
|
| -just before the execution of $srcpkg->build().
|
| -
|
| -=item keyrings ()
|
| -
|
| -The hook is called when dpkg-source is checking a signature on a source
|
| -package. It takes no parameters, but returns a (possibly empty) list of
|
| -vendor-specific keyrings.
|
| -
|
| -=item register-custom-fields ()
|
| -
|
| -The hook is called in Dpkg::Control::Fields to register custom fields.
|
| -You should return a list of arrays. Each array is an operation to perform.
|
| -The first item is the name of the operation and corresponds
|
| -to a field_* function provided by Dpkg::Control::Fields. The remaining
|
| -fields are the parameters that are passed unchanged to the corresponding
|
| -function.
|
| -
|
| -Known operations are "register", "insert_after" and "insert_before".
|
| -
|
| -=item post-process-changelog-entry ($fields)
|
| -
|
| -The hook is called in Dpkg::Changelog to post-process a
|
| -Dpkg::Changelog::Entry after it has been created and filled with the
|
| -appropriate values.
|
| -
|
| -=item update-buildflags ($flags)
|
| -
|
| -The hook is called in Dpkg::BuildFlags to allow the vendor to override
|
| -the default values set for the various build flags. $flags is a
|
| -Dpkg::BuildFlags object.
|
| -
|
| -=back
|
| -
|
| -=cut
|
| -
|
| -sub run_hook {
|
| - my ($self, $hook, @params) = @_;
|
| -
|
| - if ($hook eq 'before-source-build') {
|
| - my $srcpkg = shift @params;
|
| - } elsif ($hook eq 'keyrings') {
|
| - return ();
|
| - } elsif ($hook eq 'register-custom-fields') {
|
| - return ();
|
| - } elsif ($hook eq 'post-process-changelog-entry') {
|
| - my $fields = shift @params;
|
| - } elsif ($hook eq 'extend-patch-header') {
|
| - my ($textref, $ch_info) = @params;
|
| - } elsif ($hook eq 'update-buildflags') {
|
| - my $flags = shift @params;
|
| - }
|
| -
|
| - # Default return value for unknown/unimplemented hooks
|
| - return;
|
| -}
|
| -
|
| -=back
|
| -
|
| -=cut
|
| -
|
| -1;
|
|
|