X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/bb14ff96c54db23fbbf7447aceb0dda1ce2c24f9..cd094c23528cd18d82d04b51266fd7690f31f744:/plan9/setup.rc

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