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