1use strict;
2
3use FindBin qw($Bin);
4require "$Bin/os-arch.prl";
5
6my ($OS, $ARCH, $OSTYPE, $MARCH, @ARCHITECTURES) = OsArch();
7
8my $res = "$OS.$ARCH";
9
10if (@ARCHITECTURES) {
11    my $name = "$Bin/../Makefile.config.$OS.arch";
12    if (-e $name) {
13        while (1) {
14            open F, $name or last;
15            $res = "$OS." . <F>;
16            chomp $res;
17            last;
18        }
19    }
20}
21
22print "$res\n";
23