gtkradiant/docs/developer/RegExp/tstscrpt.pl
TTimo 8037810110 transfer from internal tree r5311 branches/1.4-gpl
git-svn-id: svn://svn.icculus.org/gtkradiant/GtkRadiant/branches/ZeroRadiant@177 8a3a26a2-13c4-0310-b231-cf6edde360e5
2007-09-12 18:54:28 +00:00

17 lines
No EOL
284 B
Perl

#!perl
rename("brush.c", "brush.c.old");
open(FILE, "brush.c.old");
open(OFILE, ">brush.c");
while(<FILE>)
{
if($. != 150)
{
print OFILE;
next;
}
s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;
s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;
print OFILE;
}
close(OFILE);
close(FILE);