zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-21 08:01:30 -07:00
Code Issues Packages Projects Releases Wiki Activity

Change some instances of 'print $thing' to 'print $thing || ""', to

Browse Source 
prevent annoying Perl warnings when $thing is undefined.

[originally from svn r9446]
This commit is contained in:
Simon Tatham
2012-04-07 22:19:17 +00:00
parent 704890390d
commit e3f9741317
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mkfiles.pl
View File

@ -528,7 +528,7 @@ if (defined $makefiles{'cygwin'}) {
} }
} }
print "\n"; print "\n";
print $makefile_extra{'cygwin'}; print $makefile_extra{'cygwin'} || "";
print "\nclean:\n". print "\nclean:\n".
"\trm -f *.o *.exe *.res.o *.map\n". "\trm -f *.o *.exe *.res.o *.map\n".
"\n"; "\n";
@ -628,7 +628,7 @@ if (defined $makefiles{'borland'}) {
} }
} }
print "\n"; print "\n";
print $makefile_extra{'borland'}; print $makefile_extra{'borland'} || "";
print "\nclean:\n". print "\nclean:\n".
"\t-del *.obj\n". "\t-del *.obj\n".
"\t-del *.exe\n". "\t-del *.exe\n".
@ -704,7 +704,7 @@ if (defined $makefiles{'vc'}) {
} }
} }
print "\n"; print "\n";
print $makefile_extra{'vc'}; print $makefile_extra{'vc'} || "";
print "\nclean: tidy\n". print "\nclean: tidy\n".
"\t-del *.exe\n\n". "\t-del *.exe\n\n".
"tidy:\n". "tidy:\n".
@ -812,7 +812,7 @@ if (defined $makefiles{'wce'}) {
} }
} }
print "\n"; print "\n";
print $makefile_extra{'wce'}; print $makefile_extra{'wce'} || "";
print "\nclean: tidy\n". print "\nclean: tidy\n".
"\t-del *.exe\n\n". "\t-del *.exe\n\n".
"tidy:\n". "tidy:\n".
@ -1148,7 +1148,7 @@ if (defined $makefiles{'gtk'}) {
" -c \$< -o \$\@\n"; " -c \$< -o \$\@\n";
} }
print "\n"; print "\n";
print $makefile_extra{'gtk'}; print $makefile_extra{'gtk'} || "";
print "\nclean:\n". print "\nclean:\n".
"\trm -f *.o". (join "", map { " $_" } &progrealnames("X:U")) . "\n"; "\trm -f *.o". (join "", map { " $_" } &progrealnames("X:U")) . "\n";
select STDOUT; close OUT; select STDOUT; close OUT;
@ -1346,7 +1346,7 @@ if (defined $makefiles{'lcc'}) {
} }
} }
print "\n"; print "\n";
print $makefile_extra{'lcc'}; print $makefile_extra{'lcc'} || "";
print "\nclean:\n". print "\nclean:\n".
"\t-del *.obj\n". "\t-del *.obj\n".
"\t-del *.exe\n". "\t-del *.exe\n".
@ -1402,7 +1402,7 @@ if (defined $makefiles{'nestedvm'}) {
" -c \$< -o \$\@\n"; " -c \$< -o \$\@\n";
} }
print "\n"; print "\n";
print $makefile_extra{'nestedvm'}; print $makefile_extra{'nestedvm'} || "";
print "\nclean:\n". print "\nclean:\n".
"\trm -rf *.o *.mips *.class *.html *.jar org applet.manifest\n"; "\trm -rf *.o *.mips *.class *.html *.jar org applet.manifest\n";
select STDOUT; close OUT; select STDOUT; close OUT;
@ -1430,9 +1430,9 @@ if (defined $makefiles{'osx'}) {
(join " ", map {"-I$dirpfx$_"} @srcdirs))."\n". (join " ", map {"-I$dirpfx$_"} @srcdirs))."\n".
"LDFLAGS = -framework Cocoa\n". "LDFLAGS = -framework Cocoa\n".
&splitline("all:" . join "", map { " $_" } &progrealnames("MX:U")) . &splitline("all:" . join "", map { " $_" } &progrealnames("MX:U")) .
"\n" . "\n";
$makefile_extra{'osx'} . print $makefile_extra{'osx'} || "";
"\n". print "\n".
".SUFFIXES: .o .c .m\n". ".SUFFIXES: .o .c .m\n".
"\n"; "\n";
print "\n\n"; print "\n\n";