nhyatt/putty-source
1
0
Fork 0
mirror of https://git.tartarus.org/simon/putty.git synced 2025-01-25 01:02:24 +00:00
Code Issues Projects Releases Wiki Activity

Add some parentheses for general robustness. (In particular I just

Browse Source 
tried to run mkfiles.pl on Perl 5.005_03 and it didn't work without
them.)

[originally from svn r2885]
This commit is contained in:
Simon Tatham 2003-02-24 22:39:14 +00:00
parent 3543ba3ec9
commit 2ddf9f54de
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mkfiles.pl
View File

@ -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},