+} elsif ($uname =~ m/^SunOS$/) {
+ chomp($_= `uname -r`); $? and die "platform $?";
+ m/^\d+\.\d+/ or die "$_ ?";
+ $platform= "SunOS$&";
+ $xbindir= '/usr/openwin/bin';
+} elsif ($uname =~ m/^FreeBSD/) {
+ chomp($_= `uname -r`); $? and die "platform $?";
+ m/^(\d+\.\d+)\-/ or die "$_ ?";
+ $platform= "FreeBSD-$1";
+ $xbindir= '/usr/X11R6/bin';
+} elsif ($uname =~ m/^HP\-UX/) {
+ chomp($_= `uname -r`); $? and die "platform $?";
+ m/^B\.(\d+\.\d+)$/ or die "$_ ?";
+ $platform= "HP-UX$1";
+} elsif ($uname =~ m/^AIX/) {
+ chomp($_= `uname -rv`); $? and die "platform $?";
+ m/^\d+ (\d+)$/ or die "$_ ?";
+ $platform= "AIX$1";
+} else {
+ die "$uname ?";