Dpkg::BuildEnv: Rename to Dpkg::Build::Env

6 files changed, 33 insertions, 33 deletions

diff --git a/scripts/Dpkg/Arch.pm b/scripts/Dpkg/Arch.pm
index 373d0b144..10e2f85ad 100644
--- a/scripts/Dpkg/Arch.pm
+++ b/scripts/Dpkg/Arch.pm
@@ -62,7 +62,7 @@ use Dpkg ();
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 use Dpkg::Util qw(:list);
-use Dpkg::BuildEnv;
+use Dpkg::Build::Env;
 
 my (@cpu, @os);
 my (%cputable, %ostable);
@@ -111,7 +111,7 @@ if available.
 
 sub get_build_arch()
 {
-    return Dpkg::BuildEnv::get('DEB_BUILD_ARCH') || get_raw_build_arch();
+    return Dpkg::Build::Env::get('DEB_BUILD_ARCH') || get_raw_build_arch();
 }
 
 {
@@ -191,7 +191,7 @@ if available.
 
 sub get_host_arch()
 {
-    return Dpkg::BuildEnv::get('DEB_HOST_ARCH') || get_raw_host_arch();
+    return Dpkg::Build::Env::get('DEB_HOST_ARCH') || get_raw_host_arch();
 }
 
 =item @arch_list = get_valid_arches()
diff --git a/scripts/Dpkg/BuildEnv.pm b/scripts/Dpkg/Build/Env.pm
index ff8faa13a..9312d2d3c 100644
--- a/scripts/Dpkg/BuildEnv.pm
+++ b/scripts/Dpkg/Build/Env.pm
@@ -13,7 +13,7 @@
 # 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::BuildEnv;
+package Dpkg::Build::Env;
 
 use strict;
 use warnings;
@@ -27,11 +27,11 @@ my %env_accessed = ();
 
 =head1 NAME
 
-Dpkg::BuildEnv - track build environment
+Dpkg::Build::Env - track build environment
 
 =head1 DESCRIPTION
 
-The Dpkg::BuildEnv module is used by dpkg-buildflags to track the build
+The Dpkg::Build::Env module is used by dpkg-buildflags to track the build
 environment variables being used and modified.
 
 =head1 FUNCTIONS
diff --git a/scripts/Dpkg/BuildFlags.pm b/scripts/Dpkg/BuildFlags.pm
index 41c46d846..06ae9e705 100644
--- a/scripts/Dpkg/BuildFlags.pm
+++ b/scripts/Dpkg/BuildFlags.pm
@@ -22,7 +22,7 @@ our $VERSION = '1.03';
 
 use Dpkg ();
 use Dpkg::Gettext;
-use Dpkg::BuildEnv;
+use Dpkg::Build::Env;
 use Dpkg::BuildOptions;
 use Dpkg::ErrorHandling;
 use Dpkg::Vendor qw(run_vendor_hook);
@@ -152,20 +152,20 @@ sub load_environment_config {
 
     foreach my $flag (keys %{$self->{flags}}) {
 	my $envvar = 'DEB_' . $flag . '_SET';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->set($flag, Dpkg::BuildEnv::get($envvar), 'env');
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->set($flag, Dpkg::Build::Env::get($envvar), 'env');
 	}
 	$envvar = 'DEB_' . $flag . '_STRIP';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->strip($flag, Dpkg::BuildEnv::get($envvar), 'env');
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->strip($flag, Dpkg::Build::Env::get($envvar), 'env');
 	}
 	$envvar = 'DEB_' . $flag . '_APPEND';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->append($flag, Dpkg::BuildEnv::get($envvar), 'env');
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->append($flag, Dpkg::Build::Env::get($envvar), 'env');
 	}
 	$envvar = 'DEB_' . $flag . '_PREPEND';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->prepend($flag, Dpkg::BuildEnv::get($envvar), 'env');
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->prepend($flag, Dpkg::Build::Env::get($envvar), 'env');
 	}
     }
 }
@@ -182,20 +182,20 @@ sub load_maintainer_config {
 
     foreach my $flag (keys %{$self->{flags}}) {
 	my $envvar = 'DEB_' . $flag . '_MAINT_SET';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->set($flag, Dpkg::BuildEnv::get($envvar), undef, 1);
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->set($flag, Dpkg::Build::Env::get($envvar), undef, 1);
 	}
 	$envvar = 'DEB_' . $flag . '_MAINT_STRIP';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->strip($flag, Dpkg::BuildEnv::get($envvar), undef, 1);
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->strip($flag, Dpkg::Build::Env::get($envvar), undef, 1);
 	}
 	$envvar = 'DEB_' . $flag . '_MAINT_APPEND';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->append($flag, Dpkg::BuildEnv::get($envvar), undef, 1);
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->append($flag, Dpkg::Build::Env::get($envvar), undef, 1);
 	}
 	$envvar = 'DEB_' . $flag . '_MAINT_PREPEND';
-	if (Dpkg::BuildEnv::has($envvar)) {
-	    $self->prepend($flag, Dpkg::BuildEnv::get($envvar), undef, 1);
+	if (Dpkg::Build::Env::has($envvar)) {
+	    $self->prepend($flag, Dpkg::Build::Env::get($envvar), undef, 1);
 	}
     }
 }
diff --git a/scripts/Dpkg/BuildOptions.pm b/scripts/Dpkg/BuildOptions.pm
index 8ca285962..92b0bb7c5 100644
--- a/scripts/Dpkg/BuildOptions.pm
+++ b/scripts/Dpkg/BuildOptions.pm
@@ -24,7 +24,7 @@ our $VERSION = '1.01';
 
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
-use Dpkg::BuildEnv;
+use Dpkg::Build::Env;
 
 =encoding utf8
 
@@ -60,7 +60,7 @@ sub new {
 	envvar => $opts{envvar} // 'DEB_BUILD_OPTIONS',
     };
     bless $self, $class;
-    $self->merge(Dpkg::BuildEnv::get($self->{envvar}), $self->{envvar});
+    $self->merge(Dpkg::Build::Env::get($self->{envvar}), $self->{envvar});
     return $self;
 }
 
@@ -183,7 +183,7 @@ sub export {
     my ($self, $var) = @_;
     $var //= $self->{envvar};
     my $content = $self->output();
-    Dpkg::BuildEnv::set($var, $content);
+    Dpkg::Build::Env::set($var, $content);
     return $content;
 }
 
diff --git a/scripts/Dpkg/BuildProfiles.pm b/scripts/Dpkg/BuildProfiles.pm
index 781613766..85d24febe 100644
--- a/scripts/Dpkg/BuildProfiles.pm
+++ b/scripts/Dpkg/BuildProfiles.pm
@@ -29,7 +29,7 @@ our @EXPORT_OK = qw(
 use Exporter qw(import);
 
 use Dpkg::Util qw(:list);
-use Dpkg::BuildEnv;
+use Dpkg::Build::Env;
 
 my $cache_profiles;
 my @build_profiles;
@@ -59,8 +59,8 @@ the environment variable B<DEB_BUILD_PROFILES>.
 sub get_build_profiles {
     return @build_profiles if $cache_profiles;
 
-    if (Dpkg::BuildEnv::has('DEB_BUILD_PROFILES')) {
-        @build_profiles = split /\s+/, Dpkg::BuildEnv::get('DEB_BUILD_PROFILES');
+    if (Dpkg::Build::Env::has('DEB_BUILD_PROFILES')) {
+        @build_profiles = split /\s+/, Dpkg::Build::Env::get('DEB_BUILD_PROFILES');
     }
     $cache_profiles = 1;
 
@@ -79,7 +79,7 @@ sub set_build_profiles {
 
     $cache_profiles = 1;
     @build_profiles = @profiles;
-    Dpkg::BuildEnv::set('DEB_BUILD_PROFILES', join ' ', @profiles);
+    Dpkg::Build::Env::set('DEB_BUILD_PROFILES', join ' ', @profiles);
 }
 
 =item @profiles = parse_build_profiles($string)
diff --git a/scripts/Dpkg/Vendor.pm b/scripts/Dpkg/Vendor.pm
index fcb2d3fdd..4ddcc8414 100644
--- a/scripts/Dpkg/Vendor.pm
+++ b/scripts/Dpkg/Vendor.pm
@@ -34,7 +34,7 @@ use Exporter qw(import);
 use Dpkg ();
 use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
-use Dpkg::BuildEnv;
+use Dpkg::Build::Env;
 use Dpkg::Control::HashCore;
 
 my $origins = "$Dpkg::CONFDIR/origins";
@@ -131,8 +131,8 @@ If that file doesn't exist, it returns undef.
 
 sub get_current_vendor() {
     my $f;
-    if (Dpkg::BuildEnv::has('DEB_VENDOR')) {
-        $f = get_vendor_info(Dpkg::BuildEnv::get('DEB_VENDOR'));
+    if (Dpkg::Build::Env::has('DEB_VENDOR')) {
+        $f = get_vendor_info(Dpkg::Build::Env::get('DEB_VENDOR'));
         return $f->{'Vendor'} if defined $f;
     }
     $f = get_vendor_info();