File: touch-version

package info (click to toggle)
gplanarity 11496-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 536 kB
  • ctags: 797
  • sloc: ansic: 8,722; makefile: 126; perl: 17
file content (21 lines) | stat: -rwxr-xr-x 378 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl

if(open F,"version.h"){
	$line=<F>;
	close F;

	if(open F,">version.h"){
	
	    print F "$line";
	    chomp($line=`date`);
	    print F "/* DO NOT EDIT: Automated versioning hack [$line] */\n";
	    close F;
	    0;
	}else{
	    print "touch-version: Failed to write new version.h\n";
	    1;
	}
}else{
	print "touch-version: Failed to open version.h\n";
	1;
}