stepmania/PBProject/scripts/increment_version.pl

#!/usr/bin/perl -w
use File::Copy;

$ver = 0;
if( open FH, '<ver.cpp' )
{
	<FH> =~ /version_num = (\d+);/ and $ver = $1 + 1;
	close FH;
}
chop( $date = `date` );
open FH, '>.ver.tmp' or die $!;
print FH <<"EOF";
extern const unsigned long version_num = $ver;
extern const char *const version_time = "$date";
EOF
close FH;
move '.ver.tmp', 'ver.cpp';
Do not call perl from a bash script. Whatever required this before as since been fixed. 2007-02-04 01:35:37 +00:00			`#!/usr/bin/perl -w`
atomic writes. 2007-02-11 01:30:51 +00:00			`use File::Copy;`
Do not call perl from a bash script. Whatever required this before as since been fixed. 2007-02-04 01:35:37 +00:00
			`$ver = 0;`
			`if( open FH, '<ver.cpp' )`
			`{`
extern const as per c++98 7.1.5.2. 2007-02-04 02:04:30 +00:00			`<FH> =~ /version_num = (\d+);/ and $ver = $1 + 1;`
Do not call perl from a bash script. Whatever required this before as since been fixed. 2007-02-04 01:35:37 +00:00			`close FH;`
			`}`
			chop( $date = `date` );
atomic writes. 2007-02-11 01:30:51 +00:00			`open FH, '>.ver.tmp' or die $!;`
Do not call perl from a bash script. Whatever required this before as since been fixed. 2007-02-04 01:35:37 +00:00			`print FH <<"EOF";`
extern const as per c++98 7.1.5.2. 2007-02-04 02:04:30 +00:00			`extern const unsigned long version_num = $ver;`
			`extern const char *const version_time = "$date";`
Do not call perl from a bash script. Whatever required this before as since been fixed. 2007-02-04 01:35:37 +00:00			`EOF`
			`close FH;`
atomic writes. 2007-02-11 01:30:51 +00:00			`move '.ver.tmp', 'ver.cpp';`