mirror of
https://github.com/TTimo/GtkRadiant.git
synced 2025-02-04 07:31:20 +00:00
17 lines
293 B
Perl
17 lines
293 B
Perl
|
#!perl
|
||
|
|
rename("$ARGV[0]", "$ARGV[0].old");
|
||
|
|
open(FILE, "$ARGV[0].old");
|
||
|
|
open(OFILE, ">$ARGV[0]");
|
||
|
|
while(<FILE>)
|
||
|
|
{
|
||
|
|
if($. != $ARGV[1])
|
||
|
|
{
|
||
|
|
print OFILE;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;
|
||
|
|
s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;
|
||
|
|
print OFILE;
|
||
|
|
}
|
||
|
|
close(OFILE);
|
||
|
|
close(FILE);
|