propagate from internal tree
[xonotic/netradiant.git] / docs / developer / RegExp / replace.pl
index 86bbb389eb1f122305aa75b2bb73016aa69e89b1..83d8a88c24a14c3b06e304bbbf1aa58b9856ef3f 100644 (file)
@@ -1,17 +1,17 @@
-#!perl\r
-rename("$ARGV[0]", "$ARGV[0].old");\r
-open(FILE, "$ARGV[0].old");\r
-open(OFILE, ">$ARGV[0]");\r
-while(<FILE>)\r
-{\r
-if($. != $ARGV[1])\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("$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);
\ No newline at end of file