diff --git a/stepmania/PBProject/scripts/increment_version.pl b/stepmania/PBProject/scripts/increment_version.pl
new file mode 100755
index 0000000000..7e10bb0866
--- /dev/null
+++ b/stepmania/PBProject/scripts/increment_version.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+$ver = 0;
+if( open FH, '<ver.cpp' )
+{
+	$_ = <FH>;
+	/version_num = (\d+);/ and $ver = $1+1;
+	close FH;
+}
+chop( $date = `date` );
+open FH, '>ver.cpp' or die $!;
+# Cannot use const here since gcc will strip it out...
+print FH <<"EOF";
+unsigned long version_num = $ver;
+const char *version_time = "$date";
+EOF
+close FH;
diff --git a/stepmania/PBProject/scripts/increment_version.sh b/stepmania/PBProject/scripts/increment_version.sh
deleted file mode 100755
index 48f59bc44a..0000000000
--- a/stepmania/PBProject/scripts/increment_version.sh
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/bin/sh
-
-perl -w -e '
-open F, "<version.tst"||die;
-$ver = <F>;
-close F;
-chomp $ver;
-++$ver;
-open F,">version.tst"||die;
-print F "$ver\n";
-close F;
-$date = `date`;
-chomp $date;
-open F, ">ver.cpp"||die;
-print F "unsigned long version_num = $ver;\n";
-print F "const char *version_time = \"$date\";\n";
-close F;
-'
-touch ver.cpp