Index: third_party/dpkg-dev/scripts/Dpkg/BuildProfiles.pm |
diff --git a/third_party/dpkg-dev/scripts/Dpkg/BuildProfiles.pm b/third_party/dpkg-dev/scripts/Dpkg/BuildProfiles.pm |
deleted file mode 100644 |
index 98c86d364529b7afa61658dffa34b93b3df72b99..0000000000000000000000000000000000000000 |
--- a/third_party/dpkg-dev/scripts/Dpkg/BuildProfiles.pm |
+++ /dev/null |
@@ -1,82 +0,0 @@ |
-# Copyright © 2013 Guillem Jover <guillem@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::BuildProfiles; |
- |
-use strict; |
-use warnings; |
- |
-our $VERSION = '0.01'; |
-our @EXPORT_OK = qw(get_build_profiles set_build_profiles); |
- |
-use Exporter qw(import); |
- |
-use Dpkg::BuildEnv; |
- |
-my $cache_profiles; |
-my @build_profiles; |
- |
-=encoding utf8 |
- |
-=head1 NAME |
- |
-Dpkg::BuildProfiles - handle build profiles |
- |
-=head1 DESCRIPTION |
- |
-The Dpkg::BuildProfiles module provides functions to handle the build |
-profiles. |
- |
-=head1 FUNCTIONS |
- |
-=over 4 |
- |
-=item my @profiles = get_build_profiles() |
- |
-Get an array with the currently active build profiles, taken from |
-the environment variable B<DEB_BUILD_PROFILES>. |
- |
-=cut |
- |
-sub get_build_profiles { |
- return @build_profiles if $cache_profiles; |
- |
- if (Dpkg::BuildEnv::has('DEB_BUILD_PROFILES')) { |
- @build_profiles = split / /, Dpkg::BuildEnv::get('DEB_BUILD_PROFILES'); |
- } |
- $cache_profiles = 1; |
- |
- return @build_profiles; |
-} |
- |
-=item set_build_profiles(@profiles) |
- |
-Set C<@profiles> as the current active build profiles, by setting |
-the environment variable B<DEB_BUILD_PROFILES>. |
- |
-=cut |
- |
-sub set_build_profiles { |
- my (@profiles) = @_; |
- |
- @build_profiles = @profiles; |
- Dpkg::BuildEnv::set('DEB_BUILD_PROFILES', join ' ', @profiles); |
-} |
- |
-=back |
- |
-=cut |
- |
-1; |