from nxn

[xonotic/netradiant.git] / docs / developer / RegExp / tstscrpt.pl

diff --git a/docs/developer/RegExp/tstscrpt.pl b/docs/developer/RegExp/tstscrpt.pl
index 84e646d394039921330b1297008e3c46a28a2238..a7194b17dfffc80c8a8ab5ee048cda614dbcf495 100644 (file)
--- a/docs/developer/RegExp/tstscrpt.pl
+++ b/docs/developer/RegExp/tstscrpt.pl
@@ -1,17 +1,17 @@
-#!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