4 unshift @INC, ($::ENV{'BUILD_DIR'} || '/usr/lib/build');
10 my ($dist, $configdir, $archs);
13 if ($ARGV[0] eq '--dist') {
18 if ($ARGV[0] eq '--archpath') {
23 if ($ARGV[0] eq '--configdir') {
25 $configdir = shift @ARGV;
30 die("Usage: getmacros --dist <dist> [--configdir <configdir>]\n") if @ARGV;
31 my $cf = Build::read_config_dist($dist, $archs, $configdir);
32 print $cf->{'rawmacros'} if exists $cf->{'rawmacros'};