plan9/versnum

   1 /define PERL_REVISION/ {revision = $3}
   2 /define PERL_VERSION/ {version = $3}
   3 /define PERL_SUBVERSION/ {subvers = $3}
   4 END {
   5 if (subvers == 0)
   6         printf "p9pvers = %d.%d\n", revision, version> "buildinfo";
   7 else
   8         printf "p9pvers = %d.%d.%d\n" , revision, version, subvers> "buildinfo";
   9 }