X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=plan9%2Fsetup.rc;h=dd96c1f9c7d1e23226c94a13fc95d427fa6e98ff;hb=95e8664e86da93255f26600f44bbbd70bf5b5b0e;hp=037ecfb25c0dddee7f342842da3e3a17da98d7e3;hpb=bb14ff96c54db23fbbf7447aceb0dda1ce2c24f9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/plan9/setup.rc b/plan9/setup.rc
index 037ecfb..dd96c1f 100644
--- a/plan9/setup.rc
+++ b/plan9/setup.rc
@@ -9,8 +9,11 @@
 awk -f versnum ../patchlevel.h
 . buildinfo
 builddir = `{ cd .. ; pwd } 
-if(flag a) platforms = (386 mips sparc 68020)
-if not platforms = $objtype
+if (~ $#* 0) platforms = $objtype
+if not switch($1) {
+	case -a ; platforms = (386 mips sparc 68020)
+	case * ; echo 'Usage: setup.rc [-a]' >[1=2] ; exit
+}
 sourcedir=/sys/src/cmd/perl/$p9pvers
 privlib=/sys/lib/perl
 sitelib=$privlib/site_perl