Bomb if platform not recognised. Do not test $! after pclose. SunOS platform.

diff --git a/config b/config
index d9d49e651058ab534de54114c0cc2148219bfe81..bed6412082a90b6014c32d1bdefccc4a78da86db 100644 (file)
--- a/config
+++ b/config
@@ -2,14 +2,20 @@
 chomp($hostname= `uname -n`); $? and die 'uname $?';
 ($hostname)=(gethostbyname $hostname) or die "hostname $hostname ?";
 
 chomp($hostname= `uname -n`); $? and die 'uname $?';
 ($hostname)=(gethostbyname $hostname) or die "hostname $hostname ?";
 

-chomp($s= `uname`); $? and die 'platform $?';
+chomp($s= `uname`); $? and die "platform $?";

 if ($s =~ m/^Linux$/) {
 if ($s =~ m/^Linux$/) {

-    chomp($_= `uname -m`); $? and die 'platform $?';
+    chomp($_= `uname -m`); $? and die "platform $?";

     if (m/^i\d86/) {
        $platform= 'linux-i386';
     } else {
     if (m/^i\d86/) {
        $platform= 'linux-i386';
     } else {

-       die '$_ ?';
+       die "$_ ?";

     }
     }

+} elsif ($s =~ m/^SunOS$/) {
+    chomp($_= `uname -r`); $? and die "platform $?";
+    m/^\d+\.\d+/ or die "$_ ?";
+    $platform= "SunOS$&";
+} else {
+    die "$s ?";

 }
 
 $ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :
 }
 
 $ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :

diff --git a/process b/process
index 0787d7986f99846f3188219d83d52a43c202a669..192d96461a78463c68941e1cf85fe0d1e2b07a72 100755 (executable)
--- a/process
+++ b/process
@@ -32,7 +32,7 @@ sub read_prep ($) {
     if (!$c) { exec './gpt','config',$inputfile; die $!; }
 }
 sub fin_prep () {
     if (!$c) { exec './gpt','config',$inputfile; die $!; }
 }
 sub fin_prep () {

-    $!=0; close P; die "$! $?" if $! or $?;
+    close P; die "$?" if $?;

 }
 
 read_prep('perms');
 }
 
 read_prep('perms');