home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2-beta.img / usr / lib / perl / arch next >
Text File  |  1995-12-04  |  393b  |  18 lines
  1. open(CPUINFO, "</proc/cpuinfo") || die("cannot read /proc/cpuinfo!");
  2.  
  3. while (<CPUINFO>) {
  4.     chop;
  5.     /^cpu[ \t]*:/ || next;
  6.     ($instarch) = /^cpu[ \t]*: *([a-zA-Z0-9]+)/;
  7. }
  8.  
  9. close(CPUINFO);
  10.  
  11. if ($instarch =~ /i?^.86$/) { $instarch = "i386" };
  12. if ($instarch =~ /[Aa]lpha/) { $instarch = "axp" };
  13.  
  14. ($instarch ne "i386" && $instarch ne "axp") &&
  15.     die("Unknown architecture $instarch");
  16.  
  17. 1;
  18.