Index: third_party/dpkg-dev/scripts/Dpkg/Source/Package/V3/Custom.pm |
diff --git a/third_party/dpkg-dev/scripts/Dpkg/Source/Package/V3/Custom.pm b/third_party/dpkg-dev/scripts/Dpkg/Source/Package/V3/Custom.pm |
deleted file mode 100644 |
index 3ea9d05f87c29d2906362e74b1a4719343a7fcc0..0000000000000000000000000000000000000000 |
--- a/third_party/dpkg-dev/scripts/Dpkg/Source/Package/V3/Custom.pm |
+++ /dev/null |
@@ -1,63 +0,0 @@ |
-# Copyright © 2008 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::Source::Package::V3::Custom; |
- |
-use strict; |
-use warnings; |
- |
-our $VERSION = '0.01'; |
- |
-use parent qw(Dpkg::Source::Package); |
- |
-use Dpkg; |
-use Dpkg::Gettext; |
-use Dpkg::ErrorHandling; |
- |
-our $CURRENT_MINOR_VERSION = '0'; |
- |
-sub parse_cmdline_option { |
- my ($self, $opt) = @_; |
- if ($opt =~ /^--target-format=(.*)$/) { |
- $self->{options}{target_format} = $1; |
- return 1; |
- } |
- return 0; |
-} |
-sub do_extract { |
- error(_g("Format `3.0 (custom)' is only used to create source packages")); |
-} |
- |
-sub can_build { |
- my ($self, $dir) = @_; |
- |
- return (0, _g('no files indicated on command line')) |
- unless scalar(@{$self->{options}{ARGV}}); |
- return 1; |
-} |
- |
-sub do_build { |
- my ($self, $dir) = @_; |
- # Update real target format |
- my $format = $self->{options}{target_format}; |
- error(_g('--target-format option is missing')) unless $format; |
- $self->{fields}{'Format'} = $format; |
- # Add all files |
- foreach my $file (@{$self->{options}{ARGV}}) { |
- $self->add_file($file); |
- } |
-} |
- |
-1; |