plan9/versnum


1
2
3
4
5
6
7
8

/PERL_VERSION/ {base = $3}
/PERL_SUBVERSION/ {subvers = $3}
END {
if (subvers == 0) 
	printf "p9pvers = 5.%03d\n", base> "buildinfo";
else
	printf "p9pvers = 5.%03d_%02d\n" , base, subvers> "buildinfo";
}