From: simon <simon@cda61777-01e9-0310-a592-d414129be87e>
Date: Mon, 24 Feb 2003 22:39:14 +0000 (+0000)
Subject: Add some parentheses for general robustness. (In particular I just
X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/putty/commitdiff_plain/fa8ebf26d01c3e4e5320f1a961a4eca12e1b7659

Add some parentheses for general robustness. (In particular I just
tried to run mkfiles.pl on Perl 5.005_03 and it didn't work without
them.)


git-svn-id: svn://svn.tartarus.org/sgt/putty@2885 cda61777-01e9-0310-a592-d414129be87e
---

diff --git a/mkfiles.pl b/mkfiles.pl
index 63cbe0ec..f2c660b1 100755
--- a/mkfiles.pl
+++ b/mkfiles.pl
@@ -687,7 +687,7 @@ foreach $p (&prognames("M")) {
 
   $rsrc = &objects($p, "", "X.rsrc", undef);
 
-  foreach $arch qw(68K CFM68K PPC Carbon) {
+  foreach $arch (qw(68K CFM68K PPC Carbon)) {
       $objstr = &objects($p, "X.\L$arch\E.o", "", undef);
       print &splitline("$prog.\L$arch\E \xc4 $objstr $rsrc", undef, "\xb6");
       print "\n";
@@ -705,7 +705,7 @@ foreach $d (&deps("", "X.rsrc", "::", ":")) {
 		   undef, "\xb6"), "\n";
   print "\tRez ", $d->{deps}->[0], " -o {Targ} {ROptions}\n\n";
 }
-foreach $arch qw(68K CFM68K) {
+foreach $arch (qw(68K CFM68K)) {
     foreach $d (&deps("X.\L$arch\E.o", "", "::", ":")) {
 	 next unless $d->{obj};
 	print &splitline(sprintf("%s \xc4 %s", $d->{obj},
@@ -715,7 +715,7 @@ foreach $arch qw(68K CFM68K) {
 	       " -o {Targ} {COptions_$arch}\n\n";
      }
 }
-foreach $arch qw(PPC Carbon) {
+foreach $arch (qw(PPC Carbon)) {
     foreach $d (&deps("X.\L$arch\E.o", "", "::", ":")) {
 	 next unless $d->{obj};
 	print &splitline(sprintf("%s \xc4 %s", $d->{obj},