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 |
new file mode 100644 |
index 0000000000000000000000000000000000000000..98c86d364529b7afa61658dffa34b93b3df72b99 |
--- /dev/null |
+++ b/third_party/dpkg-dev/scripts/Dpkg/BuildProfiles.pm |
@@ -0,0 +1,82 @@ |
+# 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; |