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