blob: aeb5ea803e5d3665294305e0ec371203e3b9b558 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
use strict;
use warnings;
use Debian::Debhelper::Dh_Buildsystems;
buildsystems_init();
my $system = $ENV{'TEST_DH_SYSTEM'};
my $step = $ENV{'TEST_DH_STEP'};
my $bs = load_buildsystem($system, $step);
if (defined $bs) {
print 'NAME=', $bs->NAME(), "\n";
print $_, "=", (defined $bs->{$_}) ? $bs->{$_} : 'undef', "\n"
foreach (sort keys %$bs);
}
|
