home *** CD-ROM | disk | FTP | other *** search
- open(CPUINFO, "</proc/cpuinfo") || die("cannot read /proc/cpuinfo!");
-
- while (<CPUINFO>) {
- chop;
- /^cpu[ \t]*:/ || next;
- ($instarch) = /^cpu[ \t]*: *([a-zA-Z0-9]+)/;
- }
-
- close(CPUINFO);
-
- if ($instarch =~ /i?^.86$/) { $instarch = "i386" };
- if ($instarch =~ /[Aa]lpha/) { $instarch = "axp" };
-
- ($instarch ne "i386" && $instarch ne "axp") &&
- die("Unknown architecture $instarch");
-
- 1;
-