perl 5.003_06: t/lib/basename.t
[perl.git] / plan9 / versnum
1 /PATCHLEVEL/ {base = $3}
2 /SUBVERSION/ {subvers = $3}
3 END {
4 if (subvers == 0) 
5         printf "p9pvers = 5.%03d\n", base> "buildinfo";
6 else
7         printf "p9pvers = 5.%03d_%02d\n" , base, subvers> "buildinfo";
8 }