-#!perl\r
-rename("brush.c", "brush.c.old");\r
-open(FILE, "brush.c.old");\r
-open(OFILE, ">brush.c");\r
-while(<FILE>)\r
-{\r
-if($. != 150)\r
-{\r
-print OFILE;\r
-next;\r
-}\r
-s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;\r
-s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;\r
-print OFILE;\r
-}\r
-close(OFILE);\r
+#!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);
\ No newline at end of file